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1*0 GENERAL INFORMATION 

1.1 PROGRAM ABSTRACT 

1.1.1 STRUCTURE OF PROGC-AM 

RnT§ '^{vnr^^J?,^ '^^CjJPIES 14.5K WQROS OF Mi^MOPV AMD IS CHMPATI^LF WTTM 
PRnni a2 F?riM%/?¥, JI^J^^^ a^^ TS?*'n'lf^w,^IS?P^?j!>S ^"^ °S^A SINGLE 

%W lnli^D?»Uf^i^'^"^JSSa.i^. STARTED AT ADDRESS 20^), CONTROL GOPS FTRST TO 

im SUPSRVISOR CODIMG F0LL0W5? IMMEDIATELY THf^ DT a n^4n<?TTr TP^t rnnr%ir 

OF /soFTwsRppJo'SL'eaf'""'"'"' "S"*"' «"0 lf"v,v*gf CONSoJilg ifilf^Sf 

1.1.2 niAG^OSTIC INFORMATION 

l^S RLll/RLVll RLOl EXEPCrSER IS A POP-U (LST-11) BA<;Fn PPHCPfiM tt 

WILL RANDOMLY EXERCISE UP TO 2 COMTPOLL^RS AND R nPTVFS aPTirc II 

1.2 SYSTF^ RFQdIRFMKNTS 

1.2.1 HARO«iARE RFQUTREMSNTS 

1 - 1 i?L"l DPIVES ■ '- 

LINKPRIi^TERCOPTTOMAL) " 



1.2«2 SOFTWARE REQUIREMENTS 

?LERO RLll/RLVll RL'^. 

(FOR«.«ERLY MD-II-DZRLE-A) 



^'^^^ISS JLll/.'^L'^Jl PL^1_ EXERCISER 
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1.3 RELATED DOCUMENTS AND STANDARDS 

RLOl USERS MANU4L f R K-RLO 1-llG-PPF) 
XXOP fJSEPS Mfi»^UAL 

1.4 DIAGNOSTIC HIERARCY PREREQUISITES 

PROGPAMS; S"8SY3TE^ SHOULD HAVE SUCCESSFULLY PUN THE FOLLOWING 

CZRLBAO PLll/RLVll RLOl CONTROLLER TEST (PART 1) 

Rin^^f- ShU^^^yM g^Ol CONTROLLER TEST (PART 2) 

CVPLAAO RLVll RLOl DISKLESS TEST (RLVll flNLv) 

CZRLCBO RLOl DRIVE TEST (PART 1) ^ ^ } 

CZRLDBO RLOl DRIVE TEST (PART 2) 

1.5 ASSUMPTIOMS 

IHLti^?^^*^^ OTHER THAN THE RLOl SUBSYSTEM TS ASSUMED TO WORK 
FUNCTlfeN'pPOPERLY^^'^"^^ ''*'' "" PEPOPTED IF THE PROCESSOR, ETC.; DO NOT 

2.0 OPERATING INSTRUCTIONS 

2.1 HOW TO RON THIS DTAGMOSTIC 
2.1.1 THE SIX STEPS OF EXECUTION 

ISI§nRH5?PSTIC SHOULD 8E LOADED AND STARTED USING NORMAL XXDP 
PPQCEDURES. THE START COMMAND SHOULD NOT SPECIFY AN AnDPFsL HECAUSF 
THE DIAGNOSTIC HAS THE PROPER TRANSFER ADDRESS CODED INTO IT. "-'^^y^S 

WHEN THIS DIAGNOSTIC IS STARTED, THE FOLLOWING STEPS WILL OCCUR; 

********** 

* STEP 1 * 

********** 

A SHORT SERIES OF ''HARDCORE QUESTIONS" WILL BE ASKED: 

QUESTION MEANING 

h:m III 2 1 r ^"F.^^ h" ^;g|;0«? 

LPT fL> N ? IS THERE' A LINE pPI^iTER'? 

MEM (K) (0) 16 ? HOM MANY K OF MEMORY APE THERE? 

THE, .DEFAULTS (SHOWN AFTER EACH QUESTION) CAN RF SELECTED Ry MTTTTWr 
CARRIAGE RETURN. IT JS POSSIBLE THAT NOT ALL OF THE OU&STTnNc; 'Jnr rp 
^SKEOI FOP EXAMPLE, IF YOU SAY "YES" TO THE L-CLOCK QnESTION, THE 
P-CLOCK QUESTION WILL NOT RE ASKED. ^l.'.^^. ^> -d i lu"*, iti^. 



^fc I 
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* STEP 2 ^ 



lIiuE"'°T"^i"p"R5Ml¥''!iEsit^'"' ?i§2<^yBYs''gS?!;*0f,f4j«SJ14'=^0"IC WILL 

COMMAMD MODE, AS fJPPOSEP TO XXDP tommaJd MODE ^ ^^ niAGNOSTIC 

STA/PASS:1/PLAGS:W0E 
THINGS TO NOTE HSPF: 

^' ^Dk!R^^\|5IE'NlED^?nli'f'5Ji^ ^^ ^"^^ f^^ ^^^ ^O^^'^^^O ^7 THE 
2' I?lo"^*§S" SWITCH SPECI«^IES HQW M4MY PA«;<;Fq vnn nsrcToir « 

LOE LOOP ONE ERROP 

HOE HALT OM ERROR 

TER INHIBIT ERROR PRINTOUT 

SHOPTLY)!^*^ ^^ SPSCIFIEO TN THE ABOVE EXAMPLE (WE'LL SEE WHV 



^ STEP 3 * 
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AT A DISK OPIVE^ THEN THE NUMBER 
DRIVKS TO £•!£ TESTED. WHEREAS 



OF UNITS WOULD PE THE NU^c^ER 
„-r^ ^^..» ^. , ^ - ---..-- IF THE DIAGNOSTIC WAS DIRECTED AT 
DISK CONTROLLER, THEN THE ^JUMRER OP UNITS WnULD RF THE NUMREP 
COMTROLLEPS. Ue TARGET DEVICE OF A DIAGNOSTIC CA^ A WAYS 
OETERMINEn R¥ INSPECTIMn THE "HEADER" STATEMENT NEAR THE PECINNTNT, 
THE SOURCE CODE. ONE OF THE OPERANDS OF THIS "HEADER" STATEMENT 
SHOULD BE THE DEVICE TYPE OF THE DIAGNOSTIC. 



OF 

THE 

OP- 

PE 

OF 
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* STEP 4 ^ 



JIHEN YOU HAVF TYPED If:? THE ^frMRSP OF fUyTT<; to ri? Trc^L-n mur^ 

********** 

* STRP 5 * 
********** 

AFTER VOU HAVE AMSWEPED ALL THF HARHWARE QtIF<5TinNq f^FC ') ^\ pod »rr 
THE UNITS, YOU WILL BE ASKED "CH^NnESW?" IF vrU^alTTnn? A^^rn k% 
?,9fJ^*''ln^^^SSTI0NS THAT DETERMINE THR BEHAVIOR OF THji PPOGRAM TVpl 
"P* I^YnT^^?YP?^'iJ"'^S^rl*L^Tr^4c^?LPFEM^^oTC THESE QUESTION'S, T?PE 

********** 

* STEP 6 * 



********** 



AFTER vau HAVE ANSWERED THE SOFTWARE QUESTIONS, THF DurNn^TTr wtt r 
BEGIN TO EXECUTE THE HAROWAPE TEST rODE. ^HEPF ARF sfvfpI? THlfr^ 
IPL.SILS^PP?^. '^??k ^0EP5NDING m WHETHER fuAPDWAPEFRPOPlI 

1, IC^!!^ ERROR IS ENCOUNTEREH, THEN THF DIAGNQSTir WTTT <^TMPrv 
MODE^pRaJpf DS'^I>)P ^"^"^^^ PASSES 'Id pf?URN^|^ COMMAND 



Paqe R 



2. 



l^ AN ERROR IS "NCDUNTEPED, THFN HMP r\v THDrc Tirrwr-c u«DDn-vrc 
DEPEMDOG OH THE SETTINGS OF THE Ho| AND LoFflAGS?^ HAPPEMb, 

^OE set: the eRROR mill JS REPORTED ON THE CONSOLE ^NO 

LQF SET. thI nflpMnll?? ull-^ F^X'^*^^ JO COMMAND WODE. 
LUf-, 5ti; !, Hh DIAGNOSTIC WILL LOOP ENLESSf V niy twf Rfnric 

-EITHER noS^'ol'hrih^'^'nVluVol i ' „ . 



2.1.2 SAMPLE RUN-THROUGH 

''■ f«TPnrT'in?''^l?.P;'r,S?!?!J"'2,\^ |!<ECOTIOK WILL HE'ilW AT ThiJ 

PRO/FLAGS; lER J LOE J HQE=0 
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THIS WILL no THE FOLLOWING: 

1. TflRN ON THE lER (INHIBIT ERROR PRI^fTOUT) FLAG 

2. TORN ON THE LOS FLAG 

3. TURN OFF THE HOE FLAG 

4. RESUME EXECUTION AT INSTRWCTION AFTER ERROR REPORT 

1. START 

2. RESTART 

3. CONTINUE 

CON/FLAGS: HOE !IER=0:LQE=O 

PI?U?fS il"fH'E'3|GlL'fN'l oPTHf'i{gD«?g|'^|?5T^ V^H^F^^ fS^ ?Fi'„^^ 
if?%?il SR"T8^ii'0?\^ilf "^"^ 3lLE-^E§W^if?Hr%r^lHJS- T^ ?SI| 

CHOlJEsf ^^ ^^^^ ^^" ^*^'^' '^^ ^"^ 'f"- DIAGNOSTIC AGAIN, YOU HAVE T«0 
1» START 
2« RESTART 

52gDS?iPQSii?fgNe'l6Ali!'''''^ °' ^'^^'"^'^ ^°" ^'^^^•^^^ 70 ANSWER THE 



liilll 



w 
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THE PULL PRINT-OUT FROM THE ABOVE OlftLOGUS MIGHT LOOK LIKF THIS: 

BV 

WHOM 

.R DZRKXX entered: 

DZRKXX k 

L-CLK (L) N ? Y n 

50H7 (L) N ? 



LSI (L) N •> K 

LPT (L) N ? R 

(K) (D) 16 -> n 



D,0 
D 



CHANGE Ss^ (L) ? M 



DS-P>RESTART/PftS,S:l 
CHANGE SW (L) ? ^ 



D 



MEM 

DS-B>STA/ PASS :l/FL AGS JHOE H.P 

# UNITS (D) ? 2 n'n 

UNIT 1 S\' 

CSR (0) ? K n 

VECTOR (n) ? H'ri 

BR LEVEL (0) ? i'V. 

DRIVE (0) ? R'n 

UNIT 2 K" 

CSR (0) ^ K n 

VECTOR (Q) ? k'K 

BR LEVEL (0) ? R'H 

DRIVE (0) ? 1 ^'H 

CHANGE SW (L) ? N K'n 

pZRKXX HARD ERR 00r^04 TST 003 SUB Q02 PC:004130 d' 

ds-b>pro/p-lags:isr:loe:hoe=o n,o 
********************* ^^^if^^tj^^^^^,^^^^^^^^^^^^^^^^^^ 

AT THIS POINT THE DIAGNOSTIC IS LOOPING ON THE 

ERROR WITHOUT PRINTING SNVTHING. YOU CAN SCPPF 

151 ERROR UNTIL jgiJ HAVE LOCATED IT, THEN -C OUT 
************* *******i^***i,<i,*^^^^^^^^^^^^^^^^^^^j^^ 

DS-8 >CON/FLAGS I HOE S I ER : LOE=0 ri^n 



DZRKXX SOP 1 n 



PrO 



D,0 
D/0 
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2.2 HOV Tn CREATE 4 CHAINABLE FILE ' ) 

JJ??.'?^.*'^^'^-'''^ IC AS RECElVFn PROM RSLFASF FMGTNFFRT Nf; raWMOT or Dt!M tm 
iUU- W'l'i.,l^Kl^,r.^.^^ IT PEARS THE EXTEnMoN ^TN'-^lisTEAD OF "R^ 
YOU'Ie GOT. ' Hfi'^HVER, TO CREATE A CHAINABLE PPOGP AM* FROM 'JhAT 

TlqnPn^^^.SioR^ Sl^P?j^J?rX"S^^^9PF^^ *"H THE SPECIAL COMMAND "CCI»' 

sf.'i? ^MT cXiA^g"'?ASirs*''T?E^'efAnSorT{r w'^'^f^ ^iMiT^ 

EXTEN'SION "RTC"? ^ ^^ ^^^^ "^^ "^^^ ^'^^^ MEDIUM, WITH THE NEW 
HERE IS A SAMPLE DIALOGUE TO ACCOMPLISH THIS: 

.R HP02 

RESTART: XXXXXV 

*CLR 

♦LOAD OIAG.RIN 

i'^U?U ^°''^'''^'^«« ^ 

L-CLK (L) N ? - 



DS-B>CCr 

« UNITS (D) ? 4 



CHANGE SW (L) ? N 
PTAB END: 60632 



*AT THIS POINT THE MACHINE HALTS AND* 

n9L'i!^§L2llH5I*d'5' address xxxxxx* 

*HICORE 60 632 
CORE; 0,60632 
*nTjMp DKf!| 01 AGARIC 

rohmiki ?5e''§k? r^'/udi "" "" "" "O" """ "■ """ '^'•"« "« 

«R DIAG. PIC 
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2,3 DETAILS OF COMMANPS AND SY^JTAy 
2.3.1 TABLE OF C0MW4ND VALIDITY 

HOW ENTERED LEGAL COMMANDS 

1. OPERATOR ENTERED 'PUN DIAG' START 

PRINT 
DISPLAY 
FLAGS 
ZFLAGS 

2. DIAGNOSTIC HAS FINISHED ALL ST APT 
ITS REQUESTED PASSED PEStIrT 

PRINT 
DISPLAY 
FLAGS 
ZFLAGS 

3. OPERATOR INTERRUPTED THE ^tsot 
DIAGNOSTIC *JITH CTPL/C RESTART 

CONTINUE 

PRINT 

DISPLAY 

FLAGS 

ZFLAGS 

4. AN ERROR WAS ENCOUNTERED <;t]ii?t 
WITH THE HOE FLAG SET SET RESTART 

CONTINUE 

PROCEED 

PRINT 

DISPLAY 

FLAGS 

ZFLAGS 

2.3,2 COMMAND SYNTAX 

BE ISSUED WB^N DliJNOSTir CnWilioMOBR HAS "1"; f "?!." VTA^OKE DF TH? 
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^!m?»lyS OPERATOR RESPONDS TO "# nNITS'>»', THE HAPPWARF nTirnrnP r<i ) 

INITIATED, WHEN IT IS COMPLFTFO. THi? m!F<;TTnMc HruVk-rS^'-^cHli. J§ -^ 

ISSUED, AND THE ANSWERS, IF GI#N;pkoMF THE 111 DEFAULTS THFRFRHP^ 
DEFAULTs!^''^^^^*^^ "^^ ^^^°*° ^^^ PROGRAM IN ORDER^O^yTUR^TolnpLOAO 

THE SWITCH ARGUMENTS ARE AS FOLLOWS: 

'DlifrAf:^iSMeiisM^??i!Si iTc?f IhTt Sp"?c'!?f flf'Tli?s^e%F'^'f?STFn°^ 

f8rm'<P[S?> 'Jlfy?I?^-Sr!lH^-^l"ClL^!pQ"''^ 0F'iLEMEiTl"0F THE 
HAS^NE^'SF'fHf ^SECowfNf VALulsf ^' SEPARATED BV COLONS, WHERE <FLa"> 

""'^ FRR0R°IS^-NCOfjNTEp|D^^ COMMAND MODE TO RE ENTERED WHEN AN ' ) 

^°^ ^t^utS^ Si?^^«;..^,*,"ll!ll^ THE DIAGNOSTIC TO LOOP CQNTINUOUSiy 

'aITHIN THE SMALLEST OEFINED BLOCK OF rnrsTMr r^FrwPMi! 

TPO fl!Slifl'r9?,nFP> COSTAINIMG THE ERROR ^^^^ (SEGMENT, 

lER INHI«IT ERROR PEPOPTI'^G 

IBE INHIBIT BASIC ERROR REPORTS 

IXE IN'HIPIT EKTFNDEn ERROR REPHRTS 

lU R]^?^^'' *f'L MESSAGES TO A LINE PRINTER 

ISR INHIB^"sfATl'?!?aL'^Sf^o5Ts''''^^"'' ^*'"*^' INTERVENTION TESTS 

IDU INHIBIT DROPPING OF UNITS BY DIAGNOSTIC ' 
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NEW '^DlFi;Lfs"'^"*THF ^r^iV^lfn^^S^B'n^^? TRB ANSERE IF GIVEN BECOME THE 
THE SWITCH ARGUMENTS ARE AS IN THE START COMMAND EXCEPT • 

DESIGNATES THP POSITTON n& THFd tISFp IR^ISSfc "^IT NUMBER 
THE ORDER IN WfflCH THEY WFQERnTr;^*^^Sc^'^v?SE^^oA<^CORDING TO 
NOT HAVE PEEM DROPPED RV THF^nDpSxlnH^^^^n^£SPI''IED ^'"ST 

2. ILL DNSPCCIFIEPl FLJG SETTIBGS JRB BKCHiNGED. 

S9i!iHn'H(:Eill;«JII:cn«i«nij;HS;HII> 

MAY NOT 8E CHANGED* ^rnuNALLY Hfc REEXSCUTED. HARDWARE PARAMETERS 

THE SWITCH ARGUMENTS ARE AS IN THE START COMMAND EXCK^T: 

'' UUmul'hVnl^riElhuV^ UNSATISFIED PASS-C.T PROM THE 

2. HMSPECIFIED FLAG SETTINGS ARE UNCHANGED 
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ERROR CALL. nEhdl ^il^^^'l^^^t^l^UU^I^^^/^^^^ 
THE SWITCH ARGUMENTS ARE THE SAME AS THE START COMMAND EXCEPT: 
1. nNSPECIFIEO FLAG SETTINGS ARE UNCHANGED 

m/*l5LnlL^|;ylK,^AfS|PASS;CNT^FLAGS:PLJ 

HARdSapE^^TfJt ^SSL^'^'^^^S^L^^k 0P'=:^"0R dialogue and H^LTS AT THE 
MEDI^pf SlTR'f^BIC^EffENSIONj"^ OPERATOR CAN DUMP THE CORF IMAGE TO ThI 

EITHER WITH A "STfiPT" f T w iarru r » cc IS PUN MANUALLY IT CAN BE INVOKED / 

lioci- ""--? "°--"- ^^^''vu^'iik^%m.mE if A ..-.^ 

IhI^Mcility *n^'^^'?STn'^SSgpM^"''^*LJ° I,1LSI^gnostic, -.ihich givfs 
howe.er^^I'Inl? uNTir^nPSIIf start^Ir restart! °- ^ °''^'''^ ^^°^' 
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ADD/(INITS:UNIT-LIST 
******* >ir********i5;i 



DRQPp1""^Rf^fH'"nEop'cnMeA°?g)"fS%5^ BEEN PREVIOUSLV 

FOLLOWED BY A PROCEED. ^^^ SEGOENCF. AN ADD CANNOT BE 



******* 

PRI(MT) 
******* 



i*^^ FJ"liJISMI?lf!c.»[S\"'p'^§||SGrpZ3l fi'gfejJIL"'' '"^^^"- "^ 



OPERATOR "nROP" CGV^'aNO ARE so designated! ^ *^ "^^^ DROPPED BV THE 

FLA(GS) 
******* 

THE CUPREMT SETTINGS OF ALL FLAGS ARE PRINTED. 
******** 

*******S 

ALL FLAGS ARE CLEARED, 

2«4 EXTENDED P»TA8LE DIALOGUE 

JgELP^feG'5?i?iyf§M°gp Jgf, iltP?|§i^iH?J|fe?a'L '' ^^^^^lED BY THE 

sfY)°"ipfr'E'"fN%^g|F?i Ir^nn'^M ri^l?ip/<^'"« ^^F NRMREp . 
ARE OF THE SAME FORMAT; A^D^^IaPDr^^T^ ^T^^^tE^S,,, ALL OF THE P-f ABLE§ 
BETWEEN THE Mukhl'§ ,,mfErMls,llns\nE'lHriiMs ^11!^!'^^^ 
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p!!TrRFp?"fIp'^'^l?r?"^" "^^S.^y^.^TIOMS, ALL OF THE SLOTS IM ALL OF THJ^" -J 

EXHAUSTED. THE LAST VALUE THAT SLOT iI^THeIImAiJiSc^^-JSblIs!:"^'^ ^^ 
ON SUBSEQUENT TRIPS THRU THE QUESTIONS, THE SAmf PpnrF<;<; tq rhoxirvn 
S^7r.r''^?S^'?lv'^S4'frl^'^J^gtIEST P-TABLE Sot TO RAV^ RECEIVED SI EXPT irl? 
PLAyId^IN THE FIRST TRIpI ^^^ ^^^^^^^ THE ROLE THAT TAPLF NUmIeF-' ONE 

4 STRING OF VALUES MA¥ PE GTVEM AS k R4Wr:F fiS-IA rni? PYhhwrvt\ ru 'vuu 
MOW LET us SEE H0« ^E COULD USE THESE CAPARILTTT^^ TH rnKi^TcrirT r cir'p 



a^ 



>r3,...,64) EXCEPT FOR UMIT 50, WHICH SOUID RFrFTVF TMF ulr rrP 40 
:l"i.^rh^|i^F.»^ALUE FOR THE THI§D PARAMETER BE THE IumBFR 76^FQP THE 



UrA^m^i:. '■'-'^^'^^'^' VALur. r uk XHh. THIRD PARAMETER RF THF KsriMPFi? 7ft Pnp the- 
FIRST 20 UNITS AND THE MUMPER 77 FOR" THE LAST 44 UNITs!; " 

THE FOLLO'^ING DIALQ^,UE MOULD ACCOMPLISH THIS GOALl ) 

# UNITS (0) ? 6 4 

UNIT 1 

<QUSSTinM l> -> 7S 

<QU£STION 2> ? 1-20 

<QUE3TI0:N 3> ? 76 

21-49^,51-64 . -X 

77 • ,) 



UNIT 21 






<QUESTIOM 


1> 


■7 


<QUESTION 


2> 


f 


<QUESTI0N 


3> 


9 
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RF^ ffcp^PTpP'^fM^^I" ll^f.^Pl^S, TABLES 21 THRU THF FND APF nOTNG TO 

2.5 HARD'fARE PARftviSTERS 

?nrJTRn^^Tn'^^TSF^?Jg!^2 H^kJ^ *>"5'^ED ON A START COMMAND. TH^ VALU^ 

RLll (L) Y? 

RLlll^COMTROLrip/^'-^ "*^^ ^"^ ^^^'- ^Q^TROLLER, N'O(N') IF VOTJ HAVE AN' 

BUS ADDRESS (0) 174400? 

ANSWER WITH THS PUS ADDRESS OF THE CONTROLLER. 
VECTOR CO) 330? 

ANSWER WITH THE INTERRUPT VECTOR OF THE CONTROLLER. 
BR LEVEL (0) 5? 

ANSWER WITH THE INTERRUPT PRIORITY OF THE CONTRCLLFP. 
DRIVE CO) C? 

ANSWER «ITH THE DRTVE(S) CONNECTED TO THE CONTROLLER. 
2.6 SOFTWARE PARAMETERS 



RETRY LMT X? 

LIMITS - 65,535 
SEEK RETRY LMT X? 

THAT CYLINDER BUT CONTINUE WITH 4 NEW CYLINDEr!' "^^^^ ^^^ '^^^^ ^°'' 

LIMITS - 65,535 ) 

DATA DMP ON DCK ERR X? 

i51iL^iHPJHKTPoP^fHr'pp|.fgSrSRE^ffll^gp|3^^Po?ii,r^Tiii:^ ''' 

^' SSaT iAs'ixPECTiD?' ^'^ ''"°' "^'"^ ^^P^ «*^ ^^^ P^I^'TED WITH 

^* ISFpi ?S SIpIE! ''" ^"^''^ '' '^'^ ^"•^'^^ ^° '^^^^> "S ENTIRE ^, 

LIMITS ¥ OR M 

# OF ERR DUMPED 

THIS IS THE NUMBER OF MISCOMPARES THAT WILL BE PRINTED. 
LIMITS - 12f? 

TIME BETk- REPORTS Vnn) X? * ) 

LIMITS 1 - 65,535 



) 
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DROP DR ON SPR LMTS PEACHED X^ 

LIMITS Y OR n 

HRD ERR LMT X? 

THIS IS THE LINIT OF Hj PD i=;RRORS THAT A DRIVF WTFT RF npnpppn nu x 

hXrd error is QNF on which the RETRY has ■been EXHIUSTED? ' * 

LIMITS 1 - 65,535 

SFT err LMT X? 

THIS IS THE LIMIT OF SOFT ERRORS THAT A DRIVE WILL RF DROPPFO DH t 

RETRY LIMIT. ^ ^'^ ^'^^^^ "^ *^ OPERATION THAT WAS SUCCESSniLSlTHIN THE 

LI^^ITS 1 - 65^535 
DATA MISCOMPARE LIMIT X"? 
DROPPED on!' ^^"^^ ^^ ^^ ^°^^ MISCOMPARES THAT THE PRIVE WILL BE 

LIMITS 1 - 65,535 
SK ERR LMT X? 
DROPPED l¥ '^^''" ^'" ''^^"^^^^ ^*^^ TRACKING ERRORS THAT A npiVE WILL PE 

LIMITS 1 - 65,535 

DR ERR LMT X? 

THIS IS THE LIMIT OF DRIVE ERRORS THAT A DRIVE WILL BE DROPPED ON, 
LIMITS 1 - 65,535 

DROP DR ON OPER LMTS REACHED X? 

GIVES THE ABILITY TO STOP TESTING ON A nRTV? THAT HftS RyrFK-nirn ppdthtm 
QPSRATION LIMITS (SEEK, PITS TRA^'SFERRED) ." THE PRTVF WItL RF DPOPPFH 
ONLY w^EN ROTH HAVE BEE^ EXCEEDED, IF THE ANsSeP IS YES THEN THE NEXT 
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TWO QUESTIONS WILL BE kSWEU, ' •) 

LIMITS Y OR N 

DATA XFER LMT (*iO(10)) X? 

DgKE^^I?L^B|^^^Spg|D^O*^«I'^ED "TS READ/WRITTEN (*10(1C)) ON WHICH THE 

LIMITS 1 - 65,535 
SK LMT (*10(3)) X? 

BE^DRO^piS! ^^"" ^^ '^"'^ noERATIONS (n0(3)) ON V^HICH THE DRirE MILL 

LIMITS 1 - 65,535 (*1C(3)) 
DO YOU WANT TO CHANGE SEEK, R/W PARAMETERS X^? ^^ 

A YES ANSWER WILL ASK THE NEXT 13 QUESTIONS. 

STIPULATE R/W XFER SIZE X"? ) 

LIMITS Y OR N 

MAX XFER X? 

REPRESENTS THE MAXIMUM IMOUNT OP WORDS TO READ OR WRITE "\ 

LIMITS 3 - B12P ■ ■' 

MIN XFER X? 

REPRESENTS THE MINIMUM AMOUNT OF WORDS TO READ OR WRITE 



\ 
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LI^'ITS 3 - 5120 



RD ONLY X? 



COM^AMD WILL STILL OCCUR, 



LIMITS Y OR n 



RAN PAT X? 

?i9?M^^ OPERATION SHOULD RE vc;s, rmt tutc pftpjMRTirD 
NEXT^QgEgflONl'^ ''' P*"eIn orEIGHT "ISal'pA^tIJII. 

LIMITS Y OR N 



WILL ALLOW THE 
THF PATTERNS IN 



WHICH ONE X? 



IT IS NOW 
FOLLOWING 



ilGHT'^plTTERNSr*^'^ *"^' ^^^^"^ER IN' WRITING ONLY OME OF THE 



1 - 

2 - 

3 - 

4 » 



6 » 

7 - 



O'S 



77 



iy5i'l?P?5' 52525, 125252, 12'5252,12'i2S2 
iPP'f?i?i5'il2§l'J?i255,52525;i25252 

i^^li', III ',fi^^',liii?' ""33, 66666 
}?»;5,J5C442,'642na32110,5504<, 26422 

P|,:lilli,''io%^S2l;1llll'"^""'^«'^ 

55ll3,i22645,15i322,64f 51, 132264,55132 
6a,'il??!,'2'l5J5';fl'lf2l'^'""'"^" 



2645 
1322 



LIMITS 



- 7 



«R CHK" X"? 



DO YOrj WISH TO P'^RFORM A ¥RtTE CHECC AFTER EACH WRITE OPERATION 
LIMITS ¥ OR N 
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WORDS PER SECTOR COMPARED ON READ X? ) 

NORMAL TRANSFERS APE RAflDOM RETWFFN 3 AND 17R0 wnRn<: thtc; dad* viirn.c-o 
WILL ALLOW you TO SPEdfY HOW HANYWORDS SHOULD BFcfiMpIpFn PFR^qFrlno 
IN CORE AFTER EACH READ. I'=' THE VALim SPECIFIED TSGR^ATFR TH«N th?t 
READ IN ONLY THE NUMBER READ IN APE COMPAPFn THF pfwpd wninl 
COMPARED IH COPE ON EACH READ THE FASTER THROUGHpSPtHE^eIeRCTSER^WILL 

LIMITS - 128 

# OF DATA ERR RPT'D PER BUF X? 

IWI^ ^h^h^^:"^.^'^ "^JLL LIMIT THE NUMPER OF IN COPE MTSroVPARF*; PPTWTFD 
THE PROGRAM WILL CONTINUE TO COMPARE AS MANY WORDS AS ^PFrTFTFn rut 
WILL INHIBIT THE PRINTOUT ONCE THIS LTWIT IS PFArHFP aptvp Ir PSnonl 
ARE CHECKED A SUMMARY WILL BE PRINTED: P5-.ACHtD. AFTER ALL WORDS 

X 5^0R0S BAD OUT OF 12B WORDS READ 

LIMITS - 126 ; '\ 

MAX HO X? 

REPRESENTS MAXI>^UM HEAD TO USE IN SEEf OPERATIONS. 
LIMITS 0-1 

MIN HD X? 

REPRESENTS MINIMUM HEAD TO USE IN SEEK OPERATIONS 
LIMITS - 1 

MAX CYL X? 

MAXIMUM INNER CYLINOFP TO BE USED IM SEEK OPFPATIONS, 
LIMITS " 255 

MIN CYL X? 

MINIMUM OUTER CYLINDER TO BE USED IN SEEK OPERATIONS. ') 

LIMITS - 255 

MAX SSC X? 

MAXIMUM SECTOR TO START TRANSFER ON 
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LIMITS - 39 

MIN SEC X? 

MINIMUM SECTOR TO START TRAMSFER ON 
LIMITS - 39 

TEsfpj*!^^'^^^'^^ "^"^ ^*" SQPTWftPE PARAMETER THE PROGRAM WILL START THE 
CHK DRDY X? 

LIMITS V OR N 

3.0 ERROR INFORMATION 

miBnlF^^S. *S^ PRINTED VIA CONSOLE DEVICE. THE ERROR INCLUDES PRRHR 

3.1 ERROR REPORTING 

JBlNS^^"i''iRl|?^El?R"?pSlo"Pfs"'??„N':'" "" "' i-XCOUMIEREP WHILE 
SET ERROR 

SXH'D RETRY ON SEEK 

THE NUMBER OF RETRIES GIVE^ HAVE FAILED TO POSITION DRIVE TO THE GIVEN 
AMD DRIVE STATUS PLCS,RLDA,RLRA, LAST POSITION^PPESENT POSITION, 

VOL CHK '^ILL NOT RESET 

A DRIVE RESET WILL NOT RESET VOLUME CHECK BIT 

DR DID NOT RECR FROM P«R OP 

DRIVE DID NOT COME BACK UP AFTER A POWER FAILURE 

DATA DMp ~ DATA CHECK/G ARRRLED DATA 

THE PROGRAM ENCOUNTERED A DATA CHECK ERROR BUT WAS UNAPLE TO MAKE 



liiiiP 
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LIMITS EXCEEDED! HIGH - X LOW - V 

ANSWER GIVE*} IS NOT s*ITHIN LIMITS FOR QUESTIQM. 

NO DEFAULT PROVIDED! 

CANNOT <CR> TO THIS QUESTION 

ILLEGAL COMMa?«JD 

START, RESTART, CONTIMUS, PRINT TVPED IN '^RONG FORM 

ILL ENTRY IN P-TARLE 

CQNTrBlLERS ''*''^^A^^ SECTIOM are NOT LEGAL I.E. MOPE T"AN TWO '"'\ 

MORE ?irN^?So'^?icfnEg!''°''^' ^^^ CONSISTANT 

CAN'T READ FACTORY RAD SECTOR FILE 

PROGRAM IS UNABLE TO RE J D ANY OF THE FACTORY FILES 

CAN'T READ FIELD BAD SECTOR FILE 

PROGRAM IS UNABLE TO READ ANY OF THE FIELD FILES ; 

RL01K HAS MORE THAN If PAD SECTORS 

SECTORS. ^^"^"^^ EXERCISING CARTRIDGES TO THOSE WITH LESS THAN 16 RAD 

NO DRIVES ENTERED 

^ISSPB^^'t^ DRIVES WERE ENTERED OP ALL DRIVJ'S THAT WFRF FWTPDPn wc-d!? 
DROPPED FOP ONE REASON OR ANOTHER. THE PROGRAM WTrrrnnP MU ' \ 

PRINTING THE ERROR, WAITING FOR C. A START COMMAND IS NOW NECESSARvP ) 



DRV NOT RDY W/O DRV ERR 



ON COMPLETION OF A COMMAND, DRIVE READY IS CHECfFD FOR fi pnsSTRr 
DRIFT TRACKING PROBLEM. IF THERE IS NO DRIVE PFADV A Tpt <;TfiTnJ t 
DONE TO VERIFY THAT THE DRIVE IS NOT IN PROCESS OF SEEKING^ IF IT T 



IS 

s 
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TRCK ERR 



fssssf>.sf!,s-!j! fs!',;i!,ri;isa!!;' '"°'S-"''"",'s,k s 



MIS-SK ERR 



ERROR ^PRT^Tnn^^ S?r^f' ryPn^l^^^P IS DONE TO VERIFY THF <^FFK THF 

DRV STAT ERR 

if si'Hfj^SI hm fFI'R^gNf "'*"°' ^' INCORRECT. EITHER A ERROR RIT 



liifoTl":jiPi:Li-&l^i- 



HRD ERR 



|||.|8ii|-c8L5ili-§. "SEE Wini^ Ul^.^"h.^l^n, WulF^ 



INIT MR OF SEC HAD 



3«2 ERROR HALTS 
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4.0 PERFOPMaNCE AND PROGRESS REPORTS : 

4.1 PERFORMANCE REPORTS 

f,IS?S?v*^'^^. ^R'^PORTS ARE GIVEN AUTOMATICALLY (PER SHFTWARS PARA- 
FORMAT^fs:^^^ * ^^^^^ ^^ DROPPED, OR AT OPERATOR REQUEST (PRINT) THE 

*** RLOl PER5"0RMAMCE REPORT *** 

seeks: mil 

BITS READ: JJJJJJJJJ (♦16) 
BITS WRITTEN: KKKKKKKKK (*16) 

ERRORS 



) 



SEEK: 


H 


SOFT: 


n 


HCRC: 


n 


OPi: 


N 



^^ll a MCRC: n nxm: n hnf: n 

WHERE: 

HH IS HOURS SINCE START/RESTART 



) 



IS MINUTES SINCE ST ART/RESTSRT 
§§„«„„ |S SECONDS SINCE START/RESTART 
XXXXXX IS ADDRESS OF CONTROLLER 
y IS DRIVE NUMBER 

DH IS HOUR AT WHICH DRIVE WAS DROPPED 
R^^r..,r,^ ^S MINUTE AT WHICH DRIVE WAS DROPPED 
DDDDDDDDDD -^IS 10 DIGIT OCTAL SERIAL NUMREP OF PACJC 
WW U IWV NUMBER OF SEEKS SINCE 0:00:00 

JJJJ IS TOTAL NUMBER OF RITS READ (*16) SINCE 0:00:^^0 \ 

KKKK IS TOTAL NUMBER OF RITS WRITTEN (n6) SINCE 0^6:0^ -■ 
V IS NUMBER OF THAT TVPE ERROR SINCE OrOC-nO ""'"' 

4.2 PROGRESS REPORTS 

THE ONLV PROGRESS REPORT IS THE AUTOMATIC PERFORMANCE REPORT. 

5.0 DEVICE INFORMATION TABLES 

JBiT^hJ^g^'il iSiP^T'lS' "'' '"'• ''"^^O^^^C ^0"^(^> RFGISTERS FOR ''"^ 
RLCS_-^CONTROL ANH STATUS REGISTER (XXXXX^) 

BIT 15 - COMPOSITE ERROR 

BIT 14 " DRIVE ERROR 

niT 13 - NOM EXISTANT MEMORY ERPOR 



) 
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^IT 1.2 - HEADER NOT FOUND (WITff BIT 10 SFT) 

OTT 11 " ll^lLh^l^ (^JTM BIT Id CLEAR) 

BIT 11 - HE4DFR CRC (WITH BIT 10 SET) 

n r, ,. " S^TA CRC (WITH BIT 10 CLFAR) 

?JI H,-^ OPERATION INCOMPLETE ^"^ """^ 

III 2^^ - f^RI^^ SELECT (0-3) 

BIT 7 - CONTPOLLER READV 

Ul I " INTERRUPT ENABLE 

SU 5 " ^n^^^^^^ 8US ADDRESS (BIT 17) 

HIT 4 - EXTENDED BUS ADDRESS (RIT 16) 

^IT 3-1 - FaWCTION CODE 

'} - NOP (PDP-11) MAINT (LSI-11) 

1 - WRITE CHECf 

2 - GET DRIVE STATUS 

3 - SEEK 

4 - READ HEADER 

5 - WRITE DATA 

6 - READ DATA 

7 - READ WITHOUT HEADER COMPARE 

BIT - DRIVE ^EADV 
f--f_I-.!!!f_f£'^^^'^'^ REGISTER (XXXXX2) 

PLDA - DISK ADDRESS REGISTER (XXXXX4) 

FOR READ/WRITE ^UNCTIONS 

BIT 15 - MUST BE 7ERO(0) 

511 l^~'^ - CYLINDER ADDRESS FOR TRANSFER 

BIT 6 - SURFACE FOR TRANSFER 

BIT 5-:^ - SECTOR FOR TRA?JSFER (0-47) 

FOR SEEK FOMCTION 

Sn }5 •: ^"ST BE 7ERO(0) 

^U l^r^ ~ DIFFERENCE TO NEW CYLINDER 

BIT 6-5 - MUST BE 7ER0(0) ' 

BIT 4 - SURFACE ' 

BIT 3 - MUST BE ZERO 

BIT 2 - SEEK DIRECT I ON ( 1 - IN / - ^^UT ) 
BIT 1 - MUST BE ZERO ' 

BIT C - MUST BE ON'E(l) 

FOR GET STATUS '''UNCTION 



% % 
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BIT 2 - MUST BE ZERO 
BIT 1 - MUST BE 0^!E 
BIT ^ - MrjST BE ONE 

RLMP - MULTIPURPOSE REGISTER 
FOR READ/WRITE FUNCTION 

BIT 15 - - WORD COUNTCTWO'S COMPLIMENT) 

FOR READ HEADFR FUNCTIOIJ 

BIT 15-0 - DISK HEADER OF SECTOR (FIRST READ) 
~ 3-^^Sr-^"^'' (SECOND READ) ^ 

- HliADFR CRC (THIRD READ) 

FOR GET STATUS ^ONCTION ■^ 

RAS DRIVE STATUS 

BIT 15 - WRITE DATA ERROR 

BIT 14 - CURRENT HEAD ERROR(CHE) 

Ul I? ' iUl^J-^^^ STATUS(k) 

BIT 12 - SEEK TI^E OUT(SKTQ) 

BIT 11 - SPIN ERROR (SPE) 

BIT 10 - WRITE GATE ERROR(WGE) 

BIT 9 - VOLUME CHECK(Vr) 

511 5 - C'lVE SELECT ERROR(DSE) 

BIT 7 - RESERV£D(0) ^ 

BIT 6 - SURFACE 

BIT 5 - COVER OPEN 

BIT 4 - HEADS HOWS 

BIT 3 - BRUSHES HOME 

PIT 2-0 -STATE BITS 

- LOAD STATS 

1 - SPIN UP 

2 - BRUSH CYCLE 

3 » LOAD HEADS 

4 - SEEK- - TRACW COUMTIMG 

5 . SEE*' - LINEAR MODS 

6 - UNLOAD HEADS ■ \ 
1 - SPIK DOWM ■ / 

6,0 TEST SUMMARIES 

PROGRAM DESCRIPTION 

THE PROGRAM WILL TRY TO SIMULATE A USER ENVIRONMENT WITH RANDOM 
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SELECTION OF DRTVF;5? PERFORMING RANDOM OPERATIONS OF GET STATUS/ SEEK, 
READ AND '^RTTE. 

INITIALLY THE BAD SECTOR FILE IS RECOVERED FROM EACH DRIVE AND STORED, 
THEN Each pack is E^^TIRELY WRITTEN RANDO^-LY WITH ONE OF EIGHT 
PREDETERMINED PATTERNS. 

THE MAIN LOOP IS A CONTINUOUS LOOP OF THE FOLLOWING STEPS 

1. RANDOMLY SELECT A DRIVE 

2. CHECK CONTROLLER OF SELECTED DRIVE IS NOT BUSY? 

3. THEN STEP 3; ELSE STEP 1 

4. RANDOMLY SELECT FUNCTION FOR DRIVE 
IF WRITS CHECK NEEDED} THEN STEP 4 

IF SEEK NEEDS VERIFICATION J THEN STEP 12 

IF IN PROCESS OF RETRY? THEN STEP 6 

IF IN PROCESS OF SEEK RETRY? THEN STEP P 

IF GST STATUS; THEN STEP 5 

IF SEEK; THEN STEP 7 

IF READ? THEN STEP 13 

IF" WRITE? THEN STEP 17 

5. ISSUE WRITE CHEC?f? GO TO STEP 1 

6. ISSUE GET STftTOS? GO TO STEP 1 

7. ISSUE LAST FUNCTION? GO TO STEP 1 

B. GET RANDOM CYLINDER AND HEAD WITHIN SOFTWARE PARAMETER LIMITS 

9. CALCULATE DIFFERENCE TO NEW POSITION 

10 « ISSUE SEEK 

11. SET POSITION VERIFICATION NEEDED FLAG 

12. GO TO STEP 1 

13. ISSUE READ HEADER, THEN STEP 1 

14. GET RANDOM MORD COUNT WITHIN LIMITS 

15. GET RANDOM SECTOR WITHIN LIMITS 

1^, CHECK THAT ViCRD COUNT AND SECTOR FIT ON TRACK IF THEN STEP 
16? ELSE FIX 

17. ISSUE READ? GO TO STEP 1 

18. GET RANDOM WORD COUNT WITHIN LI^'ITS 
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19. GET RANDOM SECTOR WITHIN LIMITS ' ''"^ 

20. CHECK THAT WORD COUNT AND SECTOR FIT ON TRACK IF THEN STEP ^""^ 
2C? ELSE FIX 

21. SELECT RANDOM PATTERNS IN 128 WORD CHUNKS UNTIL WORD COUNT 
DONE AND WRITE PUFFER IN MEMORY. 

22. ISSUE WRITS; CO TO STEP 1 

IIIL£?S9.^*^ ^^^^ STAY WITHIN THAT MAIN LOOP UNTIL INTERRUPTED OUT BY A 
FUNCTION^ ^FI|ISHnJG AT WHICH TIMS THE INTERRUPT SERVICE ROUTINE WILL 

1* ^JifSr,^^^ REGISTERS OF CONTROLLER THAT INTERRUPTED AND SAVE 
IMAGES 

2. IF NO ERROR SET; THEN STEP 3; ELSE STEP 14 

3. CHECK FUNCTION WHICH CAUSED INTERRUPT 

IF WRITE CHECK? THEN STEP 3A — . 

IF GET STATUS? THEN STEP 5 1 

IF SEEK? THEN STEP 4A, ,. / 
IF READ HEADER; THEN STEP 7 
IF READ? THEN STEP 9 
IF SPRITE? THEN STEP 3P 

3a. CLEAR WRITS CHECK NEEDED FLAG/ THEN STEP 4 

3B. SET WRITE CHECK NEEDED FLAG IF REQUESTED THEN STEP 4 

4. IF RETRY > THEN REPORT SOFT ERROR, ELSE STEP 4ft 

4A. EXIT TO MAIN PROGRAM ^ 

5. CHECK STATUS FOP J NO ERRORS 

COVER CLOSED 

BRUSHES HOME 

HEADS OUT 

SEEK LINEAR/TRACKING 

IF THEN STEP 4? ELSE STEP fi 

6. REPORT STATUS ERROR? GO TO STEP 4A 

7. SET VERIFICATION DONE FLAG COMPARE PRESENT POSITION WIT^ •■ \ 
HEADER WORD IF THEN STEP 4A; ELSE STEP P inu« «ii ^ 

8« REPORT MIS-SEEK, SET NEW POSITION? GO TO STEP 4 

9. IF DATA TO BE COMPARED? THEN STEP 1€ ? ELSE STEP 4 
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10. CHECK VALIDITY OF FIRST T^O WORDS; IF THEN STEP 12? ELSE: 
STEP 11. 

11. REPORT GARRLSD DATA? GO TO STEP 4 

12. CHECK WORDS READ IM IF QKAV THEN STEP Ak ELSE STEP 13 

13. REPORT DATA ERROR, GO TO STEP 4 

14. IF DRIVE ERROR? THEN STEP 33? ELSE STEP IS 

15. T=" NXM? THEN STEP 18? ELSE STEP 16 

16. IF OPI? THEN STEP 1«? ELSE STEP 17 

17. IF DLT? THEN STEP 18? ELSE STEP 20 

18. IF RETRY < LIMIT THEN STEP 4A, ELSE STEP 19 

19. REPORT HARD ERROR? CLE^P FLAGS; GO TO STEP 4A 
2). IF HCRC? THEN STEP 24? ELSE STEP 21 

21. IE DCRC, THEM STEP 2Q? ELSE STEP 22 

22. IE HNF, THEN STEP 30? ELSE STEP 23 

23. YOU SHOULD MEVFR GST HERE 

24. IF DOING READ/WRITE THEN STEP 25 IF DOIN'G READ HEADER THEM 
STEP 26 

25. CHECK IF DA IS BAD SECTOR THE^' STEP 4A ? ELSE STEP 1«. 

26. READ 40 HEADERS, IF ALL GOOD THEN STEP 27? ELSE STEP 28 

27. REPORT SOFT HEADER CRC? GO TO 4A 

2S. FIGURE OUT RAD HEADER IF IN' ^ILE THEN STEP 4A? ELSE STEP 18 

29. CHECK IF DA-1 IS IM FILE IF THEN STEP 4A ? ELSE STEP 1° 

30. READ HEADER. IF ON CORRECT TRACK THEN STEP 31? ELSE STEP 32 

31. CHECK IF DA IS IN FILE IF THEN STEP 4A/ ELSE STEP 18 

32. REPORT TRACKING? FIX POSITION, GO TO STEP 4 

33. ACT UPONi VC 

S'S'TO 

SPE 
WGE 
MDE 
CHE 



^ 



34. GO TO STEP 4 
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Hi! iim 



002106 
C02110 



11072 



.WORD 
.WORD 
.WORD 
.^ORD 
.WORD 



FNDMOD 



L«PU 

L^INIT 
L^CLE&N 



im 



- 000000 
2 000001 



OO21I4 046122 030460 



DEVREG 
.WORD C 

'Mm mi) 



.SBTTL BIT »ND OFFSET DEFINITIONS 
?DEFINITIONS 



002122 
002122 



006 



BGNMOD GLBEQAT 
EQUJ^LS 



CS=J 



BA = 



;CONTROL ftND STATUS OFFSET 
JRUSADDRESS OFFSET 
uft-2 JDISK ADDRESS OFFSET 

WP=6 ;MULTI PURPOSE OFFSET 

JCONSTANT OFFSETS FOP INDIVDUAL DRIVE BUFFERS 
JTHE ONLY POSITION THAT IS CRITICAL IS THAT OF 
jMwpRPOSiMi IT M U S T (MUST) BE THE LAST EMTRY OF THE BUFFFR 

?SEEK OPERATION COUNT 

JPEAD OPERATION COUNT (BITS) LOH ORDER 
5" " " *' HIGHORDFR 
;HRITE operation COUNT (BITS) LOW ORDER 
? " " •• " HIGH ORDER 

;error count - hard 

5EPROR count - SOFT 
ySEEK error COUNT 

5drive error count 
?data crc error count 
;header crc error count 
?data late error count 
;operation incomplete error count 
;header not found error count 
;non existant memory error count 
jpresent retry number 
j " disk address contents 
;present multipurpose contents 
;last function loaded 
?csr image of last command 




ASSEMBLY ROUTINES 
CZRLEB.Pll '^ 



■35-NOV-78 i8:2R 



3PA(1052) 30-NOV-78 18:42 PAGE 1-2 
BIT AND OFFSET DEFINITIONS 



000114 

mm 

300122 



OQIUOO 
000400 

ojcoec 

010000 
004000 



LSTHDR=50 

RTYPE=52 

S«rCNTl = 54 

PRFLGS=56 

RXFR3=€0 

HXFP3=62 

LSTDA=64 

DIFWD=66 

DPH0UR=7C 

DPMIN=7l 

TRERRr72 

DATCER=74 

DOHCK=76 

SERMM1=1C0 

SERNM2=1C2 

DC 3=104 

ORSPL=106 

BBA=110 

BSECPT=112 

RSEEK=114 

SOFTCSsll!? 

SRIPG==12C 

PRPOS=122 

SKDON=BIT<^ 

DRDY=BITC 

INTEN=BIT6 

ERR=BIT15 

DERR=BIT14 

wnE=BIT15 

HCE=BIT14 

WL=BIT13 

SrT0=PIT12 

spe=bit11 

«GE=BIT1C 

VC=BIT9 

DSE=BIT8 

NXM=BIT13 

DLT=PIT12 

DCRC=PIT11 

HCRC=BIT11 

HNF=BITir 

0PI=BIT1C 

CRDY=PIT7 

BA17=PIT5 

BA16rPIT4 

HRCHK=BIT1 

GSTAT=PIT2 

SEE!C=BIT11pIT2 

RDH0R=PIT3 

WPITB=PIT3IPIT1 

READ=PIT3IBIT2 

DRSTs:BIT3IPIT1 IBITC 



?LAST POSITION ON DISK 

JERROR ON WHICH RECOVERY IS BEING TRIED 

;LOW SEEK COUNT 

;INTERNAL FLAGS 

?THIRD ORDER READ COUNT 

;THIPD ORDER WRITE COUNT 

;DISK ADDRESS AT SOFT ERROR 

;LAST DIFFERENCE WORD OF SEEK 

;HOUR OF DRIVE DROPPED 

JMINUTE OF DRIVE DROPPED 

?TRACffING ERRORS COUNT 

;DATA CMp ERRORS 

^PERFORM WRITE CHECK 

; SERIAL NUMBER OF CARTRIDGE 

;SERIAL NUMBER OF CARTRIDGE 

?CSR ADDRESS 

?DRIVE SELECT BITS(8,9,10) 

^PRESENT BUS ADDRESS CONTENTS 

;POINTEP TO BAD SECTOR FILE 

JSEEK IN PROCESS OF RECOVERY 

;CSR OF SOFT SPRCP 

JWRITE OPERATION IN PROGRESS AT PWR FAIL TIME 

?PRESENT POSITION ON DISK 



;DRIVE READY 
yINTERROPT ENABLE 
JCOMROSITE ERROR 
;DRIVE ERROR 
;WRITE DATA ERROR 
?HEAD CURRENT ERROR 
JWRITE LOCK 



;SEEK TIMEOUT ERROR 
; SPINDLE TIMEO"-^"*- 



. ^-„ -^ -Imeout/und=:r/over speed 
ywRiTE gate error 

JVOLUME CHECK 

JDRIVE SELECT ERROR 

?NON-EXISTANT MEMORY ERROR 

?DATA LATE 

?OATA CRC ERROR 

?HEADER CRC ERROR 

;HEADER NOT FOUND ERROR 

JOPERATION INCOMPLETE ERROR 

^CONTROLLER READY 

;EXTENDED PUS ADDRESS BIT 17 

JEXTENDED BUS ADDRESS BIT 16 

JWITE CHECK FUNCTION CODE 

?GET DRIVE STATUS FUNCTION CODE 

;SEEK FUNCTION CODE 

;READ HEADER FUNCTION CODS 

JWRITE FUNCTION CODE 

?REA0 FUNCTION COPE 

;0RIVE RESET COMMAND CODE FOR DRIVE COMMAO WORD 

'S?X^IX*TUS COMMAND CODE FOR DRIVE COMMAND WORD 

JifSSKSS ilT FOP DRIVE COMMAMD WOPD( SEEK, GET STATUS) 

jniRECTION FOP SEEK(0 = AWAY FROM SPINDLe5 •'^«*"^' 
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BIT AND OFFSET DEFINITIONS 



SKHS=PIT4 
HEAOsBITf 



;HBAD SELECT FOR SEEK 

?HEAD SELECT FOR READ,WRIf E^GET STATUS 



;OFFSET FOR HARDWARE P-TABLE 

CSR=0 

VECT=2 

PRI0R=4 

DRBT=6 

CNT=10 

JOFFSET FOR SOFTWARE P-TAPLE 

RLT=0 

DAT=6 
SKT=: 



m 



C=3Q 



ROT=_ 

DDT=16 

CHFLG=20 

MXB=22 

MXH=24 

MNH= 

mc- 

M»IC= 
HXS=_ . 

MNS=36 

DCKFG=40 

DRFLG=42 

MNB=44 

SEL=46 

OPFLGsSO 

DET=52 

ROF=54 

RAN=56 

PAT=60 

SRLT=62 

CLMT=64 

AUT0=66 

STIP=70 

WCfC=~ 

DCD= 



IP =70 

mi 



.SBTTL 
BGNMOD 



RECNT: 
RWCNT: 



GLOBAL DATA AND CONSTANTS 
GLPDAT 



;read error count 
;r/w error count 
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GLOBAL DATA AND CONSTANTS 




000000 

B m:: 

272 000000 



MBY: 
DRUT; 
DRPRS: 
SYSMSK: 

hinum: 

LONUM! 

CYLMSfC: 

SECMSK: 

hrinit: 
HRPOS: 



.WORD 
-BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



;THE FOLLOWING 
?THEREFORF DON' 



iSftSSSK EOR DROPPING DRIVE 

;ORIVES UNDER TEST 

?PRIVBS PRESENT 

;MASK FOR 0-7 DRIVES 

; PRIME FOR RANDOM 

5 NUMBER GENERATOR 

;MASK FOR CYLINDER ONLY 

^^55K„OUT SECTOR BITS 

?WRITE INIT FLAG 

;UNIT IN WRITE INIT INDICATOR 




176543 

123456 

100177 

100077 







'STFLG') 



174400 



?CSR OF CONTROLLER 
JCSR OF CONTROLLER 



1 (LUN 0-3 

2 (LUN 4-1 



JDRIVE •• " 

'll^AinPnPgSSAP "OR IN BAD LIST 

;if¥rfRggR^?geST- "''" '' «*" ^^"°« "^*"°« 
TEMP LOCATION 
TEMP LOCATION 
TEMP LOCATION 



fjicfeg °.^ 'iw ^°"^°»'L'^« 



TIME BETWEEN REPORTS 
yST TIME ON SYSTEM CLOCf 
'SECONDS OF SYSTEM CLOCK 
'^Al^^PloO? SYSTEM CLODK 
?9yBloO£ SYSTEM CLOCK 
IMAGES OF REGISTERS 
ON INTERRUPT 






ASSEMBLY ROUTINES 
CZRLEB.Pll 3 



„ MACYll 30A(1052) 
NOV-78 18:2" 



urjT: 

PHRFLGJ 

trpflg: 

STFLG: 

;end of 




30-NOV-7R 18j42 PAGE 1-5 
GLOBAL DATA AND CONSTANTS 



■Ml 8 

.WORD 
.WORD 

MASS CLEAR 



CNTFLG: .WORD 



?Si? V\ 


:!!8gB 








DWCNT: 


.WORD 
.WORD 


!i 


DWCN 1: 
ERRVEC: 


.WORD 


4 


STl: 


.WORD 


34 


ST2: 


.WORD 


35 


?SSSi:f: 


.WORD 




.WORD 



ENDMOD 

-SPTTL GLOBAL MESSAGES 
BGNMOD GLPTXT 
yGLOBAL TEXT 



.ASCIZ 
.ASCIZ 
.ASCI7 
.ASCIZ 
.ASCIZ 
-ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 



JNUMBER OF UNITS ON SYSTEM 
;POWER FAIL INDICATOR 
;TRAP OCCURANCE FLAG 
JSTART FLAG 



^POINTER 
?ERROR COUNT 
?ERROR COUNT 
;ERROR VECTOR 
?STATES ALLOWED 
JSTATES ALLOWED 



OF FUNCTION 



.ASCI 

.ASClZ 

.ASCIZ 

•ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

. ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

-ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 



"TIME: " 
" RLCS: " 
" (RLCS): " 
" FUNCTION: " 
" (RLBA): " 
" (RLDA): " 
" (RLMP): " 

/DIF WD: / 

/PACK SERIAL tf: / 

/NO CRDV/ 

/DR NOT RDY/ 

t;DR NOT RDY W/O DR ERR% 

/PUG/ 

^^HlL^R Of; SEC BAD/ 

/ SECTOR: / 

/NO GOOD HDR/ 

/UNDIAGNOSABLE ERP/ 

/SEEK ERR/ 

/SOFT ERR ENC'D/ 

/DR ERR/ 

/DR ERR WILL NOT RESET/ 

/DR STAT ERR/ 

/VOL CHK WILL NOT CLR/ 

/WR GATE ERR WILL NOT RESET/ 

/DR ERR - RECOVERED/ 

/DATA CMP ERR/ 



1 
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ASCIZ 
ASCIZ 
ASCIZ 




/HARD ERROR/ 
/DATA DUMP - DCf/ 
/TRACKING ERR/ 
/HRD ERR LMT EXC'D/ 
/SK ERR LMT EXC'D/ 
/SFT ERR LMT EXC'D/ 

/EXH'D RETRY ON SEEK/ 

/HDS NOT UNLD ON ERR/ 

/DR WLD NOT LD/ ' 

/OPER LMTS EXC'D/ 

/GARBPLED DATA - CAN'T CHECK IT/ 

/NO FIELD FILE/ 

/p-table: / 
/ill p-table/ 

/ VECTOR: / 
/NO DRIVES/ 
/ DRIVE: / 
/ LST POS: / 

/ EXP POS: / 

/ REC POS: / 
/DR DID REC'R 
/AT BUS ADDR: 
/RETRYS: / 
/ ERROR TYPE: / 
/STATUS WAS: / 
/ SHOULD BE: / 
/ RETRIES ATTEMPTED/ 

/ REC'D: / 
/<DRIVE DROPPED/ 

HCRC/ 

DCK/ 

DLT/ 

OPI/ 

NXM/ 
, DRV/ 

/TESTING STARTED/ 
/WRITING PACK / 



SEQ 0041 



FROM PWP UP/ 






mm mm nmi mm tjieii 



ASCIZ / WPCHK / 
ASCIZ / GTSTAT/ 



■ ) 



ASSEMBLV ROUTINE 
CZRLEB.Pll 3( 



m 



w^ 



;s MftCYii 

!-N0V-78 18:28 
051440 042505 

Ilk Imi 



2) 30-NOV-78 18:42 
GLOBAL MESSAGES 



htsk: .asciz 

mtrh: .asciz 

HfWR: .ASCIZ 

mtrd: .ASCIZ 



SEEK 
RDHDR 
WRITE 
READ 



;end of list now yoii can put any thing you want here 



mm 

004310 

mm 



hm 



WW ta ID 

Urn 



00 4737 005474 
1040 23 



004737 005474 



010146 

mm 

012746 
016446 
012746 
016446 
012746 

612746 
010600 



000024 



004737 005230 



016446 
012746 



000064 
002407 



.SBTTL 
BGNMOD 



BGNMSG 
LlOOOOl 



LlOOOl: 
BGNMSG 



ENDMOD 

ERROR MESSAGES 

GLBERR 



ERRl 

JSR 

ENDMSG 



EPR2 

JSR 

PPINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

ENDMSG 

EMT 

ERR3 

JSR 

PRINTB 

MOV 

MOV 



PC, LINES 
CSMSG 



;GENERAL ERROR REPORT 



;mis-seek error report 



PC,LINE3 
#J"mT4,#DIFMSG,DIFWD(R4),#LPS,LSTHDR(R4),#EPS,PRP0S(R4),#RPS,R1 

PRPbS(R4),-(SP) 

#eps,-{sp5 
lsthdr(r4),-(sp) 

«LPS,-rSP) 
DIFWD(R4)«-CSP) 

CSPNTR 
#24, SP 



C$MSG 



;SOFT. ERROR RECOVERABLE ERROR REPORT 



PC,LINE1 

— Mf2A,ICRLCS,S 



f||T2A^»CRLC|^S0FTCS(R4),«CRLBA,PBBA(R4),«CRLnA,LSTDA(R4) 
#CRLDA ^*-* 



ASSEMBLY ROUTIN 
CZRLEB.Pll 3 



m 



30A(1052) 30-NOV-7e 18:42 
ERROR MESSAGES 



017446 
212746 
016446 



_0600 
016446 

mil 

012746 

9n346 



104014 
062706 



000014 



L10002: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
EMT 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

ENDMSG 

EMT 



V.0f 



4CRLBA,-^sf J 



SP,R0 
CfiPNTB 



l?!lfl{SS5J:?i?r""''""'''"'''"''' 



mivdP 




(SP) 



004737 005474 

UU^§ 002322 

013746 002320 

nmt mm 

nm °^^^'' 

104014 
062706 



054564 
004564 



000016 



104023 



FRR4 

JSR 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

ENDMSG 

EMT 



PC,LINE3 



;GET STATUS ERROR REPORT 



ST,E.MP,fmSTl,STl,ST2 



.Mp;if§p?^ 

MST/-(SP) 



n: 



sp:pg 

C§PNTB 
»16,SP 



mm mm 



-0046 

3746 002174 

.2746 006230 

2746 000003 

IIP 

2706 000010 



ERR6 

JSP 

MOV 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 



;DATA ERROR SUMMARY 



PC<-LINE2 

BMP(R4),R0 

#FMT9A,0ECNT,R0 

RO,-(SP) 

DFCNT,-(SP) 

SP^RO 

CSPNTB 

«10,SP 
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CZRLEB«Pll 30-NOV-78 18:28 



40 8 

if: 

4' 

i 



I 



004624 
004624 



04626 

fill 

04650 



04662 



f li II 



421 

111 



:i 

-54706 

mil 

004742 
004746 
084746 

004770 

mm 

005010 
005014 

mh 
IIM 



104023 



104023 



0050 46 
156416 
— -746 
446 
.__746 
013746 

m 

012746 
012746 
pfOfiOO 
104014 
062706 

imt 

013746 

min 

mm 
nm 
kiut 



'omn 



0Q2232 

002407 
000110 

000011 



000024 

mm 



301(1052) 30-NOV-78 18!42 
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ENDMSG 
EMT 



PAGE 1-9 



016446 000036 

iim mm 



m 

?242 

nil 

000024 
004072 



?NON RECOVERABLE ERROR REPORT 



EPR7 

PRINTR 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADO 

JSR 

ENDMSG 

EMT 



ERRB 

PRINTS 

CLR 

BISR 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTB 

MOV 

MOV 

MOV 



#FMT8/RETRY(R4)/«RTl 



) 



RETRY(R4),- 

SPirPO 

CSPNTB 
#10/SP 
PC/LINE3 



(SP) 



CSMSG 

JBAD DATA COMPARE ERROR REPORT 

»FMIJ0/»TIME/HOUR, MINUTE, SECOND/ «MRLCS,DCS(R4),«DRNM,<B,DRSEL*l(R 4) > 

- fR4)r(SP) 

#DRNM,-(Sp' 



>P) 



JFMTIO,^ 

DRSEL+1( 

#DRNM,-(ar 

0CS(R4)/-(_. 

»mrlcs/-cspj 
second, -(sp) 
minute,-(sp5 

HOURfc-CSP) 

«fTIME,-(SP) 

#FMT10,-(SP) 

PNtB 



hlB'i 



#RCD 



##CRLBA,«BBA(R4),#CRLDA,BDA(R4),«EXP,GDDAT,ffRCD,(R2) 

-P) 

SP 



WKUU/-(SP) 

GDDAT,-(SP) 

#EXPe-(SP) 

BDA(R4h-(SP) 



^ )#-(SP) 

CSPNTB 

#24,SP 

#FMT10B,R2 

R2#-|SP) 

»FMTiaB,-(SP) 

«2,-(Sp5 



ir"""3§=No,-7e rsV2i' ""'""'\A''°.iiit.,i'''' "'^^ 1-" 




000006 



005474 

000050 
003645 

004004 
006445 
000005 

000014 



mt mm 

3746 002160 



-12746 
012746 



46 002337 

' ""3562 

^ 6415 

746 000007 

1C4()14 

062706 000020 



104023 

004737 005474 
104023 



H0006I 



MOV 
EMT 
ADD 
ENDMSG 

EMT 



BGNMSG ERR9 

JSR 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

ENDMSG 



L10007 



LlOOlO: 



EMT 



ERRIO 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

ENDMSG 

EMT 



SP,RO 

CSPNTB 

tt6,SP 

CSMSG 



?DRIVE ERROR 



tfMST#-(SP) 

#FMT13,-(SP) 

*f5/-(SP) 

SP^RO 

CSPNTB 

#14,SP 



CSMSG 



HNVALID ENTRY IN P-TABLE REPORT 



|5|JlW|^eT/Rl/ffMRLCS,BCSR,»MVEC,BVEC 

«mve6,-(SP) 

3CSR,-(SP) 

(SP) 



#mrl6s,-,_. , 
R1/-(SP) 
#MpT,-(SP) 
*^FMTilg-(SP) 



ill, 

SP^Kll 

CSPNTB 
#20, SP 



CSMSG 



BGNMSG ERR12 

JSR PC,LINE3 

ENDMSG 

EMT CSMSG 
BGNMSG ERP13 



LlOOll: 
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mm 

002310 



L10012! 



2$: 



JSR 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

ENDMSG 

EMT 

MOV 
MOV 
BIC 

61? 

BEQ 
ADD 
BR 



PRINTB 

CLR 

BISB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

RTS 

PRINTB 

CLR 

BISB 

MOV 

MOV 

MOV 



PC,LINE3 
■fFM|l?,#SMSG,BDA(R4) 



-.. ..Ti2##aw5i»#H 
{iDA(R4)/-(SP) 
«SMSG*-tsp) 
^•"'"iJ^-CSP) 



i3/-(SP) 

SP,RO 

CSPNTB 



3 

CS^NfB 

#10, SP 



FIINC(R4),FASPNT 

«MTCR,PASCII 

flNTEN/FASPNT 

FASPNT 

FASPNT 

2S 

#|.,FASCII 



;GET FUNCTION 

;first function ASCIZ 

;CLEAR INTERRUPT ENABLE 
fooWN COUNT function 

;found? 

'NO NEXT ONE 

;loop 



H0UR,MTNUTE,SEC0NDr#MRLCS,DCS(R4),#DRNM,<B,DRSEL-H(R4)> 
SP) 



»FMT1,#TIME,H 

DRSEL+1(R4),( 

«nRNM,-(SP2 

DCS(R4)/-(SP) 

ttMRLCS,-(SPJ 

SEC0ND,-(SP) 

MINUTE, -CSP) 

HOUR,-(SP) 

CSPNTB 

#24tSP 

«FMTlA,«MFUNCrFASCII 

FASCII/-(SP) 

ftMFUNC/-fSP) 

#FMT1A,-(SP) 

CSPNTB 
#10/SP 
PC 

fFMT9,#TIME,H0UP, MINUTE, SECOND, #MRLCS^DCS(R4)#«DRNM,<B/DRSEL+1(R4)> 

DRSEL+1CR4),(SP) 
»DRNM,-(SP) 
DCS(R4),-(SP) 
«MRLCS/-(SP) 
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MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
EMT 
ADD 
RTS 

LINE3! JSR 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
EMT 
ADD 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
EMT 
ADD 
RTS 



SECOND, 
MINUTE, 
H0UR,-(S1 
#TIME,-( 

SP,RO 
CSPNTB 



iF 



SP) 
SP) 

SP) 



MOV^"^^ ISpCR^f^S^SPf^^^*''^^''^^'*^'^^"*'''^^*^^'*^'*^^^^*'^^*^''^^'*^''^'*^'^'^^^^^^ 



#CRLMP,-(SP) 

BDA(R4),-(SP) 

«CRLDA,-(SP) 

flBBA(R4),-(SP) 

#CRLBA,-(SP) 

BCSADR(R4),-(SP) 

»CRLCS,-(SP) 

^FMT2,-(SP) 

lll,-fsP) 

CS^TB 
«5- — 



PRINTB jFMt3,KRLCS,E.CS,«CRLBA,E.RA,#CRLDA,E.DA,#CRLMP,E.MP 



^.MP#-(SP) 

#CRLMP,-(SP) 

E.nA,-(SP) 

#CRLDA,-(SP) 

E.BA,-(SP) 

«CRLBA,-(SP) 

E.CS,4SP) 

#CRLCS,-(SP) 

#FMT3,-(SP) 

CSPNTB 
#24, SP 
PC 



?FORMAT STATMENTS 



FMTl: 

FMT17: 

FMTIA: 

FMT2: 

FMT2A: 

FMT3: 

FMT4: 

~"T5t 



FMTS 



FMT7: 
FMT7A; 



.ASCII /»T»Z2%A:*Z2%A:»Z2/ 

•ASCIZ /%T%06%T%01/ 

. ASCIZ /%T%T%N/ 

.ASCII /^APEFORE ERR%T*06/ 

.ASCIZ /»T*06%T%06tT%06%N/ 

.ASCIZ /*AAT ERR *Tt06%T%06%T»0«%T%06tN/ 

.ASCIZ /tT%06%T%06%N%T%06%T%06»N/ 

.ASCIZ /%T»Ofi%T%T*N/ 

.ASCIZ /»T»06%T%06*A OR %06%N/ 
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020101 
047045 

Mm 

"33117 
22464 



035124 




Mfl3D: 

mi. 



FMT8: 

FMT9: 

FMT9A: 

FMTlO: 

FMTIOA! 

FMTIOB: 

FMTl' 

FMTl 

FMTl 

FMTt 

FM^' 

FMfl4C: 

FMT14P; 

FMTIBS 

FRMTle; 

FMTIS! 

FMTSl: 

FMTSIA: 

FMTSIB: 

FMTS2: 

FMTS2AS 

PMTS2B: 

FMTS3: 

FMTS3A: 

FMTS4: 

FMTS5: 



.ASClZ 

.ASCIZ 

ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASC Z 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

. ASCIZ 

.ASCIZ 



/»Df%T*N/ 

/%T%Z2%A:%Z2%A:%Z2*T%06%T%01%N/ 

/%D6%A WORDS BAD OUT OF %D6%A WORDS REAO%N/ 

/*T»Z2%A:%Z2%A:»Z2%T*06fT»0l/ 

/»Tt06%T*06fNtTf06%T*06%A AT BUS ADDRESS / 

/*06*N/ 

/*Tt02%T%06%T1t03/ 



/»T»06*N/ 
/%T%06%T%06%N/ 
/%T%Z4%A NOW IS 



/»N»TfN/ 
/»06%A / 

?1SAW0PD ftD3%A. 



S/B %06%A WAS %06%N? 



^?rN8nlHlgPeir?§S5fSX?l'.».?LI'!'=»TTEMPTED/ 



/tN*NtS10*A*** 
'"■ RUNNINGtN/ 



/»A 
/*A 



0R= %01%N/ 
RLOl PERFORMANCE REPORT ***%N%N/ 



DROPPED %Z2tA:%Z2SiN/ 



/%Tt05%05*N/ 

/tASBEKS: %D6tZ3%N%ABITS READ: 
/»ABITS WRITTEN: %D6%Z4%Z4*I (*16)%N 
'"■■ " - SEE"- "~ 



/%N%AERRORS%N%ADRIVE: %D6*A StEKt 

/»AHARD: *D6*A SOFT: *D6tN/ 

/tADCK: %D6»A HCRC: ID6»A nxm: 

/%adlt: %D6%a opi: %06%n%n/ 



%D6%Z4*Z4*A 

%N/ 

%D6%A TRACKi 



(*16)*N/ 

%D6%A data: %D6%N/ 



*D61!A HNF: %D6%N/ 





ENDMOD 




bgnmod 


HPTCODF 




BGNHW 


.WORD 


L10013-L$HW/2 




.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


174400 
1 


iiri,: 


ENDMOD 




-SBTTL 


SOFTS^ARE PARAMETERS 


BGNMOD 


SPTCODE 





;BUS ADDRESS 

?VECTOR FOR 1ST RL CONTROLLER 



■) 
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007502 
007502 




.,, 007606 

597 

598 0076C6 



000001 
012354 



.WORD L10014-LSSW/2 



LIMIT: 


.WOR 


D 


I 


ERLMT: 


.WOR 


[1 




SELMT: 


.WOR 


) 


3 


)ALMT: 
SKLMT: 


.WOR 
.WOR 


! 


\nn: 


yint: 


.WOR 


) 




CMRD 


.WOR 


D 


24.* 


S?WZJ: 


:S8g 


S 




.MX : 


.WORD 


1280. 


T.MX : 


.WORD 


100 


' .MN : 


.WORD 


n 


'.MX : 


.WORD 


'>7ft00 


' .MNC: 


.WORD 


n 


T.MXS: 


.WORD 


r- 


".MNS: 


.WORD 


' .dck: 


.WORD 


1 


• .drp: 


.WORD 


1 


".sta: 


.WORD 


fo. 


.WORD 


.WORD 





irlmt: 


.WORD 


1 


T.ROF: 

t.ran: 


.WORD 


.WORD 




T.PAT: 


.WORD 




t.slt: 


.WORD 


t.clt: 


• WORD 


28. 


t.aut: 


.WORD 





t.stip: 


.WORD 





t.wck: 


.WORD 


1 


t.dcd: 


.WORD 


10. 


ENDSW 






H0014: 


ENDMOD 




BGNMOD 


DSPCOOE 




dispatch 


} 




.WORD 




.WORD 


Tl 




ENDMOD 




.SBTTL 


STATISTIC CODE 


BGNMOD 


RPTCODE 




BGNRPT 









?RETRY LIMIT 

;ERROR LIMIT 

?SEEK ERROR LIMIT 

nkli ffifr""" <*<»*3'> "ITS) 

?MAXIMUM R/W TRANSFER BUFFER 
^MAXIMUM HEAD SELECT 
JMINIMUM HEAD SELECT 
;MAXIMUM CYLINDER 

;minimum cylinder 

jmaximum sector 

;minimum sector 

?data dump on data check error 

jdrop on limit reached 

JMINIMUM BUFFER TRANSFER SIZE 

;SOFT ERROR LIMIT 

;DROP DRIVE ON PERFORMANCE REACHED 

JDRIVB ERROR LI^IT 

JREAD ONLY FLAG 

?RANDOM SELECT OF PATTERNS 

;ONLY ONE PATTERN 4 = WORST CASE 

?SEEK RETRY LIMIT 

;NUMBER OF ERRORS ON DCK DUMP 

;AUTO ON START UP 

^RESTRICT BUFFER SIZE 

;D0 WRITE CHECK 



PRINTS #FMTS1 



JPRINT STATISTICAL HEADER 



ASSEMBLY ROUT! 
CZRLEB.Pll 



007606 
00761-^ 



151 

627 
628 



07612 

mil 



00762: 

007626 

007630 
007634 
007640 



NES 
30-NOV-78 

mm 

062706 



007656 



007662 



007664 
007664 
007664 



012704 
005764 
001402 



007642 004737 



001366 



007660 012604 



10 40 25 



nm mm 



007672 
007672 



MACYll 
10t28 



006717 
000001 



025056 
000104 



011670 

mm 



30&(1052) 30-NOV-78 18:42 
STATISTIC CODE 



2S: 



MOV 
MOV 
MOV 
EMT 
ADD 

MOV 

MOV 
TST 
BEQ 



CMP 

BNE 



|tFMTSl,-(SP) 

SP*P0 

CSPNTS 

#4,SP 

R4,-(SP) 

#DRB0F<R4 
DCS(R4) 

PC, REPORT 

»PRP0S+2/R4 

R4,#ENDBUF 

IS 

(SP)*,R4 



ENDRPT 

L10015: 



104033 



EMT C$RPT 

ENDMOD 
.SBTTL INITIALIZATION CODE 
BGNMOD INITCODE 

BGNINIT 

SETPRI «340 

MOV S34O1-PO 

EMT CSSPRI 

BRESET 

EMT CSRESET 



;SAVE PRESENT VALOE OF R4 

?START OF DRIVE BUFFER 
JIS THERE A DRIVE? 
jnO, GET NEXT ONE 

?TYPE OUT SUMMARY 

;NEXT DRIVE 
5aT the END? 

;no, try next 

^RESTORE R4 



JSTART OF INITIALIZE CODE 
;PRIORITY TO SEVEN 



632 007674 

633 007700 

M mm 

m s " 

lit 88 . 

641 007740 

^^- mil 



7724 



mil II 



005037 
005037 

Im 

mm 

mi^ 
mm 

10237 

1446 



000050 
SQ2326 

mm 

000034 



002276 

urn 

002130 



CLP 

CLR 

CLP 

CLR 

RBAOEF 

MOV 

EMT 

BNCOMPL 

8CC 

INC 

MOV 

MOV 

BITB 

BEQ 

MOV 

BIS 



OPFLG 
INCALL 
STFLG 
CNTFLG 
#EF.PWR 
#EF.PHR,RO 
CfREFG 
ETE 3S 
3$ 

PWRFLG 
#pRBUFrR4 

R2'drut 



;CLEAR CONT 



VINDICATE POWER FAIL 



ASSEMBLY ROUTINES 
CZRLEB.Pll 30-NOV-78 



xin 



010074 
012701 

mm 



MACYll 

18:28 
000001 



30A(1052) 30-NOV-78 18142 
INITIALIZATION CODE 



6 012700 000012 



ml m 

mil iim m 

010026 004537 021136 



000104 12$: 



|6 002126 



MOV 

MOV 

BIT 

BNE 

WAITHS 

MOV 

EMT 

DEC 

BNE 

MOV 
JSR 
JMP 



15$: 



R0,flDCS(R4) 



R4) 



#60.,R1 

|L(aDCS( 

|io. 

ll0.,R0 
CSWTM 

12S 



#NOPWR/WHY 

R5,DRDRV 

13$ 

R5,ISDRST 



ASSEMBLY ROUTINES 
CZRLEB.Pll 3 



MACYll 30R(1052) 
N0V-7B lB:2e 




30-NOV-78 18:42 PAGE 2 
INITIALIZATION CODE 



13$: 



JSR 
CLR 
CLP 
CLR 



ADD 

ASLB 

BCC 

TST 

BEQ 

CLKON 

MOV 

EMT 

REQTIM 

EMT 

MOV 

JMP 

READEF 

MOV 



R5,HDHgME 

PRFLGS(R4) 

RETRY(R4) 

D0WCKfR4) 

RTYPE(R4) 

RSEEK(R4) 

<JPRPOS + 2,R4 

lis 

SVSCLK 
45 

#1 



RO 

c<;reqtim 
ro/lsttim 

POWER 

«EF. CONTINUE 
#EF,CONTINUE^R0 
kMT CSREFG 
BNCOMPLETE 1<; 
BCC IS 



is: 



INC 
JMP 



JSP 
MOV 
MOV 
2$: MOV 
CLRDAT: CLR 
CMP 
BNE 



2164 002226 

5H? mm 



MOV 

MOV 

MOV 

MOV 

CLR 

TST 

DEQ 

GPHARD 

MOV 

BNCOMPLETE 

BCC 

MOV 

MOV 

MOV 

MOV 

TST 

BNE 

MOV 

MOV 

MOV 



CNTFLG 
^.ND 

R5, CLEAR 

|CNTLR1,R0 

(ROH 

R0,«STFLG+2 

cLrdat 

#DRBUF/R4 

tteSEC0/R2 

LSUNIT,R3 

R3,UUT 

Rl 

R3 

END 

Pl^RO 

Ri;po 

CSGPHRD 



12S 



(PO) 

(RO) 

<RC)/Pu 

CNTLRl 

2S 

RPRTOR, PRIORI 

BCSP, CNTLRl 

BVEC/VECTl 



)+/BCSR 
)+,BVEC 
'+,BPRIOR 
/PDRSEL 



JCONTINUE FROM CONSOLE? 

JNO, CONTINUE W/ INIT CODE 

JVES SET CONT FLAG, GO TO END OF INIT 

?CLEAR ALL DRIVE BUFFERS 
;PR^^ME RANgOM GENERATOR 

JCLEAR FLAGS 

?MASS CLEAR 



JSETUP UP DRIVE BUFFER POINTER 

JSETUP BAD SECTOR POINTER 

;GET NUMBER OF UNITS 

?SAVE LSUNIT 

;INIT P-TABLE 

?ANY P-TABLES LEFT? 

;NO-GO TO END 

?GET A P-TABLE 



JGET CSR 

?GET VECTOR 

?GET BPRIOR 

?GET DRIVE 

?D0 WE HAVE CSR I YET? 

JYES,THEN SEE IF IT'S IT 

;N0,MAKE THIS ONE CSR 1 
;MAKE this VECTOR VECTl 



) 



ASSEMBLY ROUTINES MACYll 
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INITIALIZATION COfE 



002132 
000002 

002132 



002302 
002304 
002144 



lOS: 




CMP 

BNE 

CMP 

BNE 

MOV 

JSR 

BR 

TST 

BNE 

CMP 

PEQ 

MOV 

MOV 

MOV 

CMP 

BNE 

CMP 

BNE 

CMP 

BEQ 

MOV 

JSR 

BR 

FRRDF 

TRAP 

.WORD 

.WORD 

.WORD 

CLR 

INC 

DEC 

ADD 

BP 



BCSR, CNTLRl 

BVEC/VECTl 

fPUFl, TEMPI 
R5,FILINF 

CnIlR2 

VECTl/BCSR 

10$ 

BCSP,CNTLR2 

RVEC,VECT2 

BPRI0R,PRI0P2 

BCSR,CNTLR2 

10 S 

BVgc,VECT2 

10$ 

VFCT2, VECTl 

#PUF2, TEMPI 
P5,FILINF 

i60./ILLEG,ERR10 
TSERCODE 

ILLEG 
ERPIC 
DCS(R4) 
Rl 

tfi2./R2 



BGT 2S 

BIS #4,SYSMSK 

CMP UUt,#2 

PGT 2$ 

PIS #2,SYSMSK 

READEF #EF. START 

MOV #EF.START,RO 

FMT CSREFG 

BNCOMPLETF RESTART 

BCC RESTART 

INC ST^LG 



BNE 
CLR 



TST 

3S 

WRINIT 



CNTFLG 



?TS THIS CSR CNTLRl? 
;NO,GO CHECK AGAINST «2 
;IS VECTOR PROPER? 
?N0- REPORT ERROR 

;Gg GET NEXT P-TABLE 
;HAVE he GOT CSR #2 YET? 
'YiS«„9iECK^THIS ONE AGAINST IT 
;IS THIS VECTOR SAME AS CNTLRl 
MFSO, DON'T ALLOW IT 
?MAKE THIS ONE CSR 2 
;SETUP SECOND VECTOR 

;IS THIS CSR « 2? 

'5fi«„WELL WE DON'T ALLOW 3 

;D0KS IT HAVE PROPER VECTOR 

;Ng, GO REPORT ERROR 

>J.S„X5CT0R OF FIRST EQUAL TO 

;VECTgR OF SECOND, YES REPORT ERROR 

;OTHER CNTLR/OTHER BUFFER 

jloao buffer 

;next 

?bad p-tarle 



jPniNT TO NEXT 
;D0MN COUNT 

?next bad sector file 

?D0 while 



?SETUP FOR eight DRIVES 

JMORE THAN FOUR 

;YES, THEN MASK IS OKAY 

;SETUP FOR FOUR DRIVES 

?MORE THAN TWO 



'XSI' IT'S OKAY 
;SET FOR ONE OR 
;START COMMAND 



TWO 



;N0, CHK RESTART 

JSET START INDICATOR 

?CONTINUING 

;YES GO TO 3S 

JCLEAR THE WRITE INIT FLAG 



ASSEMBLY ROUTINES 
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(7) 
(5) 



77 

77. 

775 

V,^ 

<7 I 
54 
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INITIilLIZATION CODE 

;LET'S CREATE INTERNAL BITMAP 



88mi 

025056 
000104 

002131 

. 000124 

'»ti? mm "'^^-^ 

010620 113737 002131 002130 
010626 



0636 
"642 



I m 



010660 

010662 
010662 

0676 



mi 

010756 



mm 



mm 

mm 

000010 
002152 



782 010716 

783 010722 

785 010724 

C3> 010724 

787 010734 . 

788 010740 0( 
789 

m 



l\M mm 

013746 002224 

012746 000003 

062706 COOOIO 

mill ''''''' 

005737 002264 
001462 



012700 000001 
104034 



010037 002240 



012703 000050 



005001 
QQ5737 
001402 
012701 



002152 



ISS 
2S! 



4S: 



MOV 

CLRB 

MOV 

TST 

PEQ 

BISB 

ASL 

ADD 

CMP 

BNE 

MOVB 



SETVEC 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

TST 
BEQ 

SETVEC 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 



TST 

BEO 

CLKON 

MOV 

EMT 

REQTJM 

EMT 

MOV 

BR 



FINDBF: MOV 
CLP 



Ml 

iDRBUF,R4 
DCS(R4) 

il/DRPRS 
Rl 

#PRPOS+2#R4 
|ENDBUF,R4 

DRPRSrDRUT 

PRIORI, -(SP) 
#TNTR1,-<SP) 
VECT1,-(SP) 
#3«-(SP) 

c|sv|c 
no^sp 



CNTLR2 
4S 



VECT2,#INTR2,PRIOR2 
PRI0R2/-<SP) 
»INTR2,-(SP) 
'*P) 



VRCT2,-( 
#3#-(SP) 



#SP 



CNTFLG 
FINDBF 



SVSCLK 

POWER 



Il/RO 
CfKWON 

C^REQTIM 

RO,LSTTIM 

POWER 



;bit mask 

?CLEA 



#40., R3 
CWTLR2 
#20., PI 



.-_5AR OUT DRIVES PRESENT 

JSTART OF DRIVE BUFFERS 

;ANV CSR? 

>^^li P-RRIXE THEN 

MNDICATE DRIVE IN BITMAP 

jNEJfT POSITION 

?NEXT DRIVE BUFFER 

?DONE 

J NO 

?SET UP DRIVES UNDER TEST 



?SET CONTROLLER I'S VECTOR 



JRUNNING TWO CONTROLLERS? 
?N0 

JYES SET CONTROLLER 2'S VECTOR 



?CONTINUE? 

;N0, go past RESTART OF CLOCK 

?d0 we have system clock 
;no 

;turn clk on 



JREOUEST TIME 



?MAKE IT PRESENT TIME 
JGO TO END 



JMAXIMUM^SECTOR IS 40 

?TWO CONTROLLERS???? 
;Ng, START WC AT 5120 
?20 256 WORD BUFFERS 



ASSEMBLY ROUTI 
CZRLEB.Pll 



(3) 010766 

ill imi 

(2) 010774 

-" m 

011006 

8H815 



30-NOV-78 
062701 
OIOIOC 

hum 



MACYll 
18:28 



000024 




30A(1052) 30-NOV-78 18:42 PAGE 2-3 
INITIALIZATION CODE 



5$: 



75: 



L10016; 



R1,R0 

C5BUFF 

R0,R2 



ADD 

BUFFER 

MOV 

EMT 

MOV 

BCOMPLETE 

PCS 4<; 

TST CNTLR2 

BEQ 3S 

DEC Rl 

DEC Rl 

HALT 



BIC 

SWAB 

MOV 

TST 

BEQ 

ADD 

MOV 

ASR 

MOV 



177400, Rl 



R2#RUF1 
CNTLP2 

Ri,R2 
R2,BUF2 
Rl 
R1,MAXWC 



CLKON Ml 
NOV ll.RO 
EMT C?KWON 
BNCOMPLETE POWER 
BCC POWER 



INC 



SVSCLK 



ENDINIT 

EMT CSINIT 

ENDMOD 

CLNCODF 



BGNCLN 

SETVEC 

MOV 

MOV 

MOV 

MOV 



■,r,zT Bupfgg 19 SJ??tSkl!i "" 



?WAS AVAILABLE, THEN PR 

?TWO CONTROLLERS??? 

?N0 

;ONE 256 WORD BUFFER LESS 

JONE MORE LESS 

;IF NOT ZERO GO BACK 



I'rU ?g5?^§L[??S?^"" CONTROLLER 

;no 

?SECOND-S BUFFER 

;CORRECT WORD COUNT 
?MAX WORD COUNT 



;TURN CLOCK ON? 
;WAS THERE A CLOCK? 
?YES, SET FLAG FOR ONEI 



#TRPfiAN,-{sP) 



ASSEMBLY ROUTI 
CZRLEB.Pll 



Pi still! 

840 

841 011126 

m mm 

844 011144 

111 »i»^o^ 

846 011152 

847 011156 

84? 011160 

850 011166 

m nm 



il204 
1210 
ii 



855 
856 



868 
869 
870 
871 
872 
873 
874 
875 
876 

m 
III 



858 011222 
llg 011226 

861 
(3) 
862 
863 
(3) 
864 



NES 
30-NOV-78 

10 4037 
062706 

mm 

032777 

nm 

913700 
104036 

005737 
001412 

032777 
001774 
042777 

013700 
104036 

005037 
005037 

turn 

005737 
001401 



011230 
011230 

mm 

011234 

mm 

011236 



011236 



104035 
104033 
104012 



011236 012704 



011242 

mm 

011252 
011254 



Hill 
mm 



H&CYll 
18S28 



000010 
000340 

000200 
000100 
002222 

002152 

000200 
000100 
002224 



002326 
002324 



002316 
002264 



304(1052) 30-NOV-78 18 
INITIALIZATION 

EMT 

ADD 

SETPRI 

MOV 

EMT 

171014 is: BIT 
BEQ 

171004 BIC 

CLPVKC 

MOV 

EMT 

TST 
BEQ 

170764 2S! BIT 
BEQ 

170754 BIC 

CLRVEC 

MOV 

EMT 

3$: CLR 
CLR 

CLPVEC 
MOV 

£mt 

TST 

BEQ 

CLKOFF 
EMT 

45: BRESET 
EMT 
ENDCLN 

L10017: 

EMT 
ENDMOD 



025056 
000001 



:42 PAGE 2-4 
CODE 

C5SVEC 
#10-SP 

l340#P0 
CSSPRI 

»CRDY,iCNTLRl 

|lNTEN,faCNTLRl 
VECTl 



CNTLR2 
3S 

|CRDY,aCNTLR2 

|IN... 
/ECT2 
VECT2,R0 
CSCVEC 

INCALL 

OPCALL 

ERRVEC 

ERRVEC/RO 

C5CVEC 

SVSCLK 

4$ 



SEQ 0056 



CSKKOFF 
CSRESET 
C5CLEAN 



?PRIORITY TO SEVEN 



JWAIT FOR CONTROLLER TO FINISH 

;CLEAR INTERRUPT IF PENDING 
?RELEASE VECTOR OF FIRST CONTROLLER 



?TWO CONTROLLERS 
?N0 

JWAIT FOR OTHER CONTROLLER TO FINISH 

?CLEAR OUT INTERRUPT ENABLE 
;VES, kfELL RELEASE IT'S VECTOR 



;THIS IS POR LSI-11 CPU'S 



BGNMOD ADDCODE 

BGNAU 

MOV 
MOV 
MOV 
IS: TST 
BEQ 
ADD 
ASL 
DEC 



#DPRUF,R4 
tfl,Rl 

2? 
«PPPOS+2#R4 



U 



;START OF DRIVE BUFFERS 

;MASK to FIND DRIVE 

?SAVE WHICH TO FIND 

;THIS ONE 

JYES 

?NEXT 

;NEXT MASK 



■) 



ASSEMBLY ROUTINES 
CZRLEB.Pll 30-NQV-78 



881 
882 
"83 



MACYll 
18:28 



002130 
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INITIALIZATION CODF 




P00104 



4S: 

5S: 

ENDMOD 
BGNMOD 
BGNDU 



2S: 



is: 
3S: 



51 : 



ENDMOD 
.SBTTL 
BGNMOD 

sbtmck: 
IS: 

2S: 



PR 

BISB 

GPHARO 

MOV 

EMT 

MOV 

MOV 

MOV 

ASR 

CLR 

DEC 

BNE 



IS 
Rl/DRUT 

CSGPHRO 
R0,P1 

PO 
(R4) + 

4§ 



,R0 



TST 
BNE 
MOV 
TST 
BEQ 
DEC 
ADD 
BP 



»fDRBUF/R4 
RO 

l*PRPOS+2/R4 
2S 

i«REQ/WHY 
P5/0DPDRV 



HLORAL SUBROUTINES 

GLBSUP 

MOV 
MOV 
CMP 

PKE 
MOV 
ADD 

DEC 

BNE 



#dr|uf,r2 

nCS(R4),DCS(R2) 

R4-D0WCK(R2) 
iPRPOS+2,R2 

ll 



JTNSEPT IN DRIVE UNDER TEST 



?SETUP TO CLEAR STATS 



ASSEMBLY ROUTINES MICYll 
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304(1052) 30-NOV-78 18:42 
GLOBAL SUBROUTINES 



011420 000205 



C60104 



000104 IS: 




RTS 

MOV 
MOV 
CMP 
BNE 
CLR 
ADD 
DEC 
BNE 
PTS 



|dR^UF,R2 
DCS(R4),DCS(R2) 

0ClWCK(R2) 

tfPRPOS*2^R2 

Rl 



;RaUTINE TO FILL BUFFERS WITH INFO 



2S: 



! MOV 
MOV 
MOV 
MOV 
TST 
BEQ 

CLR 

SETVEC 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

TST 

TST 

BNE 

MOV 

BIS 

MOV 

BIT 

BNE 

PRINTF 

CLR 

BISB 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

DEC 

CLR 

CLRVEC 

MOV 

EMT 

ADD 

RTS 



BDRSEL/DRSEL(P4) 
BCSR,DCS(R4r 

1? 

TRPFLG 

ERRVEC,«TRPHAN,#340 

<i340,-(SP) 

#TRPHAN,-(SP) 

ERRVEC,-{SP) 

«3«-(SP) 

C«!SVec 

?DCS<R4) 
RPFLG 

3<; 

DRSEL(R4),R0 
i2C0|-R0 
R0,BDCS<R4) 
#l/(aDCS(R4) 



;SET DRIVE SELECT BITS 
JSET CSR 

?set r/w buffer 

isetup bad sector pointer 

;d0 we autosize? 

;no, skip 

jclear trap flag 

ySETUP TO CATCH TRAP 



;Din TRAP OCCUR 
?VES IGNORE DRIVE 
jVESi- FIND OUT IF DRIVE 

>has drive ready posted 

;ts drive ready high? 
;yes, check next 



SP) 



«FRMT16rDCS(R4),<B,nRSEL*l(R4)> 

drse- 

DCS(.. . 

#FRMTlo,- 

SP^RP 
C5PNTF 
#10, SP 



RMT16,-(SP) 



UUT 

DCS(R4) 

ERRVEC 

ERRVEC/RO 

CSCVEC 

#PRP0S+2/R4 

R5 



?ONE LESS DRIVE NOW 
;TAKE DRIVE OUT OF BUFFER 
;RELEASE THE VECTOR 



;UPDATE POINTER 



ASSEMBLY ROUTINES macyII 
CZRLEB.Pll 30-NOV-78 1^:28 



mm '''''' 




30A(1052) 30-NOV-78 18:42 
GLOBAL SUBROUTINES 



.44 

044 
0004 



000012 



INC 

RTI 



PAGE 2-7 
TRPHAV 



?ROUTINE TO PRINT STATISTICAL REPORT OF DRIVE(S) 
REPORT: 



2$: 



016446 000002 



PRINTS 

CLR 

BISB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

TST 

BEQ 

PRINTS 
CLR 

ur 

BISB 

MOV 

MOV 

MOV 

EMT 

ADD 

PR 

PRINTS 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTS 

MOV 



#FMT1,»TIME,H0UR,MINUTE,SEC0ND,#MRLCS,DCS(R4),«DRNM,<B,DRSEL*1(R4» 
DRSEL+K" " 



DRSEL-H(R4),(SP) 

#DRNM,-(SPi 

DCS(R4),-(SP) 

>,-(SP) 
'«-(SP) 



#MRLCS 
SECOND 
MINUTE, -15 
HOURt-(SP) 



IOUR/-(w. , 
>T.I.vf;:{|P} 



;0g WE HAVE ANY DROPPED TIME 
JNO, THEN PRINT Rf?NNING 



Sfmti, ,„ 

C5PNTS 
#24, SP 

DPH0UR(R4) 

ff^TSlB,<P,DPH0UR(R4)>,<B,DPMIN(R4)> 

DPMIN(R4),(SP) 

DPHOOR(R4),(SP) 
gPMI|lB5.^5p, 

SP,RO 

C<;PNTS 

|10,SP 

#fmtsia 

SP,P0 

C<!PNTS 

<*4,SP 

Sfmts5£-(sP) 

CSPNTS 
»12,SP 

RXFpf?R'4?^HfJJJ^>'SKCNTl<R4),RXFR3(R4),RXFR2(R4),RXFRl(p4) 



ASSEMBLY ROUTINES MACYll 30A(1052) 30-NaV-7B 16:42 P*GE 2- 
CZRLEB.Pll 30-NOV-78 18J28 GLORAL SUBROUTINES 




mi 

000207 



000003 
000010 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

RTS 



t}R4),-(SP) 
S2A,-fSP) 



RXFR2(R4),-(SP) 
RXFP3<R4)«-(SP) 

SKCNTl'- 

SKCNTC 

ffFHTS2A,- 

l€,-(SP) 

SP#RO 

CpNTS 

|FMfs2B^WXFR3(R4),WXFR2(R4),WXFRl(R4) 

WXFRl(R4* ""•* 

WXPR2CP4 

WXFR3CR4;,-var 

lfFMTS2B.-tSP) 

SP,RO 
C^PNTS 

|Mfs3{DERCNT£R4),SKECNT(R4),TRERR(R4),DATCER(R4) 






DATCER(R4)/-(SP 

TRERR(R4),-(SP) 

SKFCNT(R45,-(SP. 

DERCNT(R4n-(SPi 

#FMTS3£-<SP> 

C5PNTS 

#14,SP 

«FMTS3A,E 

SFTCNT(ft4 

ERRCNT(R4 

«FMTS3L- 

SP#Rn 
C5PNTS 

#10 — 



RC5T(R4),SFTCNT(R4) 



§p1 



SP. 
SP) 



«FMfs4#DCRCER(R4),HCRCER(R4)/NXMCNT{R4),HNFERR(R4) 
HNFERRCR4J/-(SPJ 



NXMCNT(R4)/-CSP) 
HCRCER(R4)/-(SP) 
DCRCER(R4),-(SP) 
SfmTS4,-(SP) 

SPjrRO 

C5PNTS 
«i4/SP 
#»^MTS5,DLTCNT(R4),OPICNT(R4) 



0PICNT(R4 
DLTCNT(P4 
#FMTS5/-( 

spSro 

CSPNTS 

«io,— 



P? 



i^^ 



SP 



ASSEMBLY ROUTINES 
CZRLEB.PH 30-NOV-78 IB 



MACYll 

*~:28 



30A(1052) 30-NOV-7B 18:42 
GLOBAL SUBROUTINES 



012354 



C02144 
0^2302 




-,-056 
060076 

002302 

004537 021312 
012536 062704 000124 



mm 

C00104 
f*02126 



SEQ 0061 



.SBTTL 



ENDMOD 

PROGRAM MAIN LOOP 



BGNTST 

'Ml^ PPOGRAf* LOOP 

!Si9SE5" ??LL RANDOMLY PICK ONE OF THE DRIVES TO 



MTEST: 



16S: 



66S: 
13|: 



99$: 



15$: 



TST 
BEO 
MOV 
MOV 
INC 
BR 

MOV 

MOV 

MOV 

MOV 

BITS 

BEQ 

MOV 
BTS 
MOV 
DEC 
PNE 
BIT 
BNE 

MOV 
JSR 

BP 

JSR 
CLR 
CLR 
CLP 

TST 
BNE 
TST 

BEQ 



WPINIT 

1615 

WRINITeR4 

WRPOS^Rl 

STFLG 

16$ 

|DRByF,R4 

P4,WRINIT 

R1,WRP0S 

Rl#DRUT 



155 

^2CC,BDCS{R4) 

DRStL(R4),gDCS(R4) 

ttC.,RO 

RO 



Idrdy, 

14$ 



flDCS(P4) 



<fpNPDY#WHV 

R5,DRDRV 

15| 

RS,PDPDSC 

PRFLGS(P4) 

DCWCK(R4) 

RSEEKfR4) 

WRrPG(R4) 

90$ 

STFLG 

15$ 

R'i/V.'RPACK 

«PRPOS+2,R4 



MF.L^LJSI^E INIT IN PROGRESS 

?SNO CONTINUE WITH THE WRITE CODE 

;GET DRIVE BUFFERS 

JCOPY R4 

'SHS.Jl POINTERS 
;DRIVE UNDER TEST 
?N0 

KHECK IF DRIVE THERE 
? ST ALL 



JGO GET BAD SECTORS 



??gF rp?^'r;fT'¥H?i°g??§i ^" =" 



;next drive 
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012704 025056 

3752 lillll 



007516 



12S: 



l$s 



2$: 



MOV 
ASL 
ASLB 
BCC 

CLR 

PRINTF 

MOV 

MOV 

MOV 

MOV 

EWT 

ADD 

SETPRI 

MOV 

EMT 

JSP 

MOV 

BIC 

MOV 

TST 

BEQ 

ASL 

DEC 

BR 

TSTB 

BNE 

FRRSF 
TRAP 
.WORD 
.WORD 

JMP 

BITB 
BEO 



R4,WRINIT 
WPPOS 



Ih 



MT14*-( 



IMS. 
#FMT 
#2 

SP,KU 

CSPNTF 
11 /SP 

clSpRI 
R5,RAND 
L0NUM,R2 
SVSMSK/R 

P2 

DRllT 
5§ 



170./NODRIV 
"^ERCODE 



[SP) 
>P) 



n 



_10 
NODRIV 

ENDOFPROGRAM 

R1,DRUT 
MAIN 



jCpPY FOR POSSIBLE PHR FAIL 
|SH]tFT THE POSITION FLAG ALSO 

;N0 GO FOR NEXT ONE 



WRINIT 



JCLRAR WRITE INIT FLG 



^PRIORITY TO ZERO 



;get a drive?(lun) 

?SIL^tlS SELECTED DRIVE (LUN) 

i'illl Si ?g^?''°''^R "•^'^ VET 
'^9ft. SHIFT FOR NEXT DRIVE 
?OECREMENT DRIVE NUMBER 
;G0 CHECK NEW DRIVE NUMBER 
HM DS.IPS ON LINE 
;YES, CHECK 

?N0 DRIVES 



?IS THIS DRIVE PRESENT? 
?NQ, GO BACK TRY AGAIN 



m nkTEhk'U'U il¥hlhW' '' "'' CONTROLLER 



6S: 
35: 



JSR 
CMP 

BLT 
CLP 

DORPT 
EMT 

MOV 
MOV 
BIC 
TST 

BEO 



R5eGETSYS 
INTERVAL/TYINT 

INTERVAL 



CSDRPT 



#DPRUF£R4 

L0NLIM,R2 
SVSMSR,R2 



ALL DONE 



'SIT.„P£^SENT TIME OF SYSTEM 
;TIMF TO PRINT REPORT 
;Np, PERFORM FUNCTION 
;VES, START INTERVAL OVER 

?PRINT STATISTICAL REPORT 

JGBT START OF DRIVE BUFFERS 

??isfcg'?SB?r;?53Pgg^TH»^DRIVE 



ASSEMBLY ROUTI 
CZRLEB.Pll 
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000104 
0001C4 
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PAGE 2-11 



ADD 

DEC 

BR 

BIT 

BEQ 

PIT 

BNE 



000056 



|PRPaS+2,R4 

j5|lT7,aDCS(R4) 
#[IT6,0DCS(R4) 



'J!2/. UPDATE FOR NEXT 8UFFFP 

;CONTROLLER ASSOCIATED WITH DRIVE 
;INTERRUPT BEEN SERVICED? 



?§/*„". ri?rg.^^goiL%?"5rs.§ Sp"?5i'g„v%"g g^tsiPB "" 



lOS: 



llOS: 



TST 

BEO 

CMP 

BLO 

MOV 

BR 

CMp 

BLO 

MOV 

BR 

CMP 

BLO 

MOV 

BR 

MOV 

ADD 

CMP 

BLO 

MOV 

BR 

CMP 

BLO 

MOV 

JSR 

JMP 

TST 
BEG 
MOV 
MOV 
JMP 
TST 
BEO 
JMP 

TST 

BNE 

PP 

JMP 

BIT 

BNE 

JMP 

JMP 



T.DRP 

as 

|RRCNT(R4),BRLMT 

#frlmtm,why 
sf|cnt(R4),sflmt 

ffSFEMSG,WHY 
J{|cEP(R4),T.DCD 

#dcdmsg/why 
sk|cnt(R4),pi 

TRERR(A4),^1 
R1,SELMT 

#SEPLMT,WHY 

DERCNT(R4),DRLMT 

#DERMSG/WHV 

RSeDRDRV 

MAIN 



;DR0P on ERROR LIMITS REACHED? 
;HARD REACHED? 



;SOFT REACHED? 



D0WCK(R4) 

BOS 

PCWCK(R4),R4 

|WRCHK,Pufc(P4, 

RETRY(R4) 

78| 

ISSUE 

RSEEK(R4) 



;ORIVE ERROR REACHED? 

?DROP THIS DRIVEIfl 
;G0 GET ANOTHER 



;WRITE CHECK NEEDED 

IwilTF^rHlSF ^^^^^ TO BE WRCHK'D 

liisul IT^^^ 

;DgES DRIVE HAVE RETRY IN 

?OR0GRFSS, NO CONTINUF 

;G0 RETRY COMMAND 



775" 

GETFNi 



yPECOVERY FROM SEE»r ERROR 

RPDFNC iGO'Ri??"''""^ 

|SKDON.PRFLGS(R45^^;iiS BEEN VERIFIED 

irlF% fge'vEl?F?°siiP^^« 



?CHECK LIMITS OF ERRORS/OPERATIONS 



* 



ASSEMBLY ROUTINES 
CZRLEB.Pll 30-NOV-78 



ISA 

P 



6D 
61 
62 

ill 

II 

72 
73 
74 

,77 

80 



03 
84 
^85 
:.86 
.87 
88 
89 

i%\ 

92 
93 

II 
15 



013222 032764 
013230 001402 
013232 000137 



MftCYll 

18:28 



OOCOOl 
013712 
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PROGRAM MAIN LOOP 



000056 GETFNC: BIT 
BEQ 
JMP 



005737 
001422 



mm 

013244 026437 

m mil 

13304 000137 

013310 004537 021214 



3314 
3320 

im 

3330 
3334 



.3340 
13342 



013346 012764 
013354 012764 
013362 000137 



OCOOOO 007514 



002126 



012614 



013702 
042702 



06505 
00172 



002136 
177770 

000007 
017470 



U 

04 

2i mm m\n "'" 



98$: 



6$: 
5$: 



TST 
REQ 

CMP 
BLO 
MOV 
ADD 
CMP 
BLO 
MOV 
JSR 
JMP 

JSR 



WOV 
BIC 
BNE 
INC 
CMP 
BNE 
DEC 
ASL 
JMP 



|SKD0N/PRFLGS(R4) 
RDHFNC 



;SEEK NEED TO BE VERIFIED? 
?N0, CONTINUE 
}C0 VERIFY SEEK 



T.STA 
98$ 

SKCNT(R4),SlfLMT 

RXFR3(R4),Rf> 
WXFR3(R4),R0 
RO/DALMT 

#SOPLMT,WHY 

R5/DRDRV 

MAIN 



?d0 wf wish to drop on opr limits 

;no 

;past the seek limit?? 

?N0, THEN GO TEST 
?GET READ COUNT 
;ADD IN WRITE COUNT 
JLIMIT REACHED?? 
?N0, THEN GO TEST 



JDROP THE DRIVE 

?G0 FOR ANOTHER DRIVE 



R5,RAND 



L0NnM,R2 
#177770, R2 

6S 
r2 

|7,R2 

R2 
)aLIST(R2) 



JGET 
JARE 

} 



?GST 

;mask 

?IF O 



FUNCTION, LEGAL FUNCTIONS 

1 (WRITE CHECK) 

2 (GET STATUS) 

3 (SEEK) 

4 (RD HEADER) 
" WRITE) 



6 (READ) 
7 ARE MOT 
IT 

TO 0-7 
MAKE I 



LEGIT 



;IS IT 7? 

?IF 1, MAKE 6 



ySHIFT LEFT (X2) 

;go to function routine 



.SBTTL ROUTINE TO SETUP AND ISSUE GET STATIFS 

;WE GFT HERE BY FALLING THRU "LIST" WITH ft RANDOM FUNCTION OF 



miv. 


imti 


GSTFNC: 


MOV 
MOV 


014052 






JMP 



«GSTAT,FUNC(R4) 
ftGSBIT,BDA(R4) 

ISSUE 



(LOAD GET STATUS 

(SET GSBIT IN COMMAND WORD 

(GO ISSHE FUNCTION 



.SBTTL ROUTINE TO SETUP AND ISSUE SEEK FUNCTION 

IM SlJr"!??, ''Xr,L*,l:IjU^Sr,TPyr."LIST" WITH A RANDOM FUNCTION OF 3* 

;WE WILL CALL "RAMD" FOR A NEW DISK ADDRESS TO SEEK 

'IT'S SEEK COuS^"'^ ^^^"^ ^^ LEGAL. WE WILL ALSO INCREMENT 

SKFNC: 



) 



TST 

BEQ 



RSEFK(R4) 
9RS 



5TRVING TO RECOVER 
;N0, CONTINUE 



ASSEMBLY 
CZRLEB.Pl 



ROUTI 
1 



NES 
30-NOV-78 



1208 
"09 



il 



-3374 
13400 



.Wit 

3432 
13436 



016401 
016402 



m mm ss: 

414 000507 



004537 

mm 

020264 
001002 



MACVll 
18:28 



050 
.122 

m 
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ROUTINE TO SFTUP AND ISSUE SEEK FUNCTION 



021214 



98$: 



MOV 

MOV 

BIC 

BIC 

BR 

JSP 

MOV 

BIC 

CMP 

PNF 



LSTHDR(R4),R1 
PRPOS{ft4),R2 

4<: 

R5,RAND 

L0NUM,R2 

SECMSK,R2 

R2/PRP0S(P4) 

QOS 



;VES SET UP FOR RESEEK 
;Ta CYLINDER 
;HEAD SET IN LATER 

;skip random part 
;get a random number 

?leave cyl and head 
}m that track already 
?nq, continue 



') 



) 
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ROUTINE TO SFTUP AND ISSUE SEEK FUNCTION 



) 



177677 
007534 




955 
94$ 



91S: 
93$: 



'500050 



JMP 

CLP 

MOV 

BIC 

CMP 

BNE 

MOV 

BR 

BIC 

CMP 

BHIS 

INC 

CMP 

BEQ 

ASR 

ADD 

BR 

CMP 

DLOS 

INC 

ASL 
BIC 
BR 
92$: MOV 
BIC 

MOV 
MOV 
BIS 
CMP 
BNE 
TST 
BNE 
BIC 
BR 

97S: BIS 

96$: 

IcALCULATE THE 



SUB 

BPL 

NEG 

BR 

BIS 

BIS 

BIT 

BEQ 

BIS 

MOV 

MOV 

MOV 

JMP 



GETFNC 
R3 

|il^7677,R0 
T.MXC/T.MNC 
95$ 
|.MXC,R2 

#HEAD,P2 
T.MXC/R2 

iP 

P3,K10. 

985 

R2 

#BIT7^R2 

95$ 

|.HNC,R2 

R3 

R2 
|BIT15,R2 

PPpOS(R4),Rl 
CVLMSK^Rl 



PPP0S(R4 

R2,PRP0S 

RO^PRPOS^K-j 

T.MXH/T.MNH 

96$ 

T.MXH 

97$ 

#HEAD,PRP0S(R4) 

96$ 

«HEA 



JVES, DON'T RESEEK 

yCOPY 

;LEAVE ONLY HEAD 

?MIN AND MAX CYLINDERS THE SAME 

;N0, BRANCH AND STAY IN LIMITS 

;MAKE CYLINDER MAX/MIN 

;g0 clculate diff and seek 
?strip out h.s. bit 
>is address less/equal than max 
;yes, check low end 



;HALF IT AND CHECif AGAIN 
?JUST TO MAKE NON ZERO 



?Gg BACK AND CHECK AGAIN 

-'" /EQUAL THA .., 

DIFF AND SEER 



HS MTN GREATER/E 
?YES, CALCULATE ~ 



lUAL THAN ADDRESS 



?N0- DOUBLE IT 

;BIT 15 CAN'T SET 

?G0 CHECK MAX/MIN AGAIN 

;GET PRESENT DISK POSITION 

?CLEAN OUT ITS SECTOR BITS 



4),LS 
S(R4) 
S(R4) 



STHDR<R4) .._ JS 



<l-kVE LAST 

;new hea6e8 after seek 
?set in random head gotten 

?MIN AND MAX HEAD SELECT THE SAME 
?Np,^THEN WE CAN USE BOTH SURFACES 
;WHICH IS OUR SURFACE FOR USE 
;TOP SURFACE BRANCH 
?LOWER SURFACE ONLY 



D,PRP0S(R4) ;TOP SURFACE ONLY 



DIFFERENCE WORD AND STORE IT IN BDA 

R1/R2 ySUBTRACT PRESENT FROM NEXT 

ll ;IF POSITIVE RESULT GO TO 1$ 

R2 ;NEG RESULT, NEGATE IT 

2S „,, ^^ ;G0 SET DIRECTION OUT 

S?J^'*^<R2 ;direction out, marker 

#MK,R2 ;MARKER BIT 
#HEAD,PRP0S(R4) ?WHICH SURFACE SELECTED? 



#SKHS,R2 

R2/BDA(P4) 

R2£DIFW0(R4) 

IISEEK,FUNC(R4) 

ISSUE 



'ffOP, THEN 3S 

JBOTTOM SET HEAD BIT 

JMOVE DIFFERENCE WORD TO DA 

?LOAD DIFFERENCE WORD 

;load seek 
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ROUTINE TO SETUP AND ISSUE SEEK FUNCTION 

.SBTTL ROUTINE TO LOAD READ HEADER AND ISSUE IT. 

?HE GET HERE BY FALLING THRU "LIST" WITH A RANDOM FUNCTION OF 4. 

000044 RDHFNC: MOV #PDHDR,FUNC(R4 ) JLOAD READ HEADER 
oMF I SSuE 

-SBTTL ROUTINE TO LOAD WRITE DATA COMMAND 



000122 WRTFNC: 



97$: 



;0N LAST TRACK? 
;N0, CONTINUE 



WE'LL SEEK OFF IT!! 



CMP «77700,PRPOS(R4) 

JMP SfpNC 

TST T.ROF 

BEQ 97$ -NO' 

JMP RDDFNC JYES 

JSR R5,GWCnA ;GET WORD COUNT, DA 



inu, uuNTi 
?YES, WE'L 
;READ ONLY 



TO WRITpOUT^TO^DISr'^ ^°'^^ ^°"^'^' ^"'^ ''''"^^ ^^^^^^ ^^ "^"^^^^ 
FORMAT: WORD 1 - » OF WORDS IN SECTOR 



JSR 
MOV 
MOV 
JMP 



R5/WRBUF 



WRITE, FUNC(R4) 
#1,WRIPG(P4) 
ISSUE 



yWRITE BUFFER INTO MEMORY 
JLOAD WRITE 

?SPrS8.U^r,JJ PROGRESS FLAG 
;G0 ISSUE FUNCTION 



.SBTTL ROUTINE TO LOAD READ DATA COMMAND 



000122 RDDFNC 



JTHIS^ROUTINE WILL FIPST CLEAR OUT THE BUFFER AREA. 
;SELECT A RANDOM NUMBER OF WORDS TO READ AND A 
?RANDOM SECTOR ON THE PRESENT CYLINDER TO READ FROM 

#77700, PRP0S(R4) SON LAST TRACK? 
""^ ;N0 CONTINUE 



99S 
97$ 



CMP 
BNE 
JMP 
JSP 
MOV 
MOV 
CLR 
INC 
BNE 
MOV 
JMP 



SKFNC 
R5,GWCDA 
BMP(R4),R2 
aBBA(P4),Rl 
(Rl) + 

n 

|PEAD,FUNC(R4) 
ISSUE 



;YES SEEK OFF IT. 
JGET WORD COUNT, OA 
;CLEAR OUT BUFFER AREA 
;S0 WE KNOW READ 
?WORKED!l 



;LOAD READ 



.SBTTL SETUP CONTROLLER AND DRIVE INFO FOR INTERRUPT PROCESSING 

ji ?Sf Pp"i?lRErpggclil"ISi {S?ERlg^l"\f%IE:j^cH°icP5i??S" 

j?OINf?^iS {|4^Ej8p|inG &llB15g"?f5RE"^ 



i i 



ASSEMBLY ROUTINES 
CZRLEB-Pll 3 



MACYll 
NOV-78 IP: 28 




30A(1052) 30-NOV-78 18:42 PAGE 3-2 

SETUP CONTROLLFP AND DRIVE INFO FOR 



000044 



000000 



:NTERRUPT PROCESSING 



? 

ISSUE: CMP 
BNE 
MOV 
BR 

is: MOV 
2§: BIS 

JSR 
JMP 



pCS(R4)/CNTLRl 
R4,LSTDR1 



R4-l,STDR2 



JORTVE ON CONTROLLER 1? 
?N0, ASSUME ON CONTROLLER 2 
JPUT BUFFER POINTER IN I 



?SKIP OVER NEXT INSTRUCTION 
KH-i.aruHz ?PUT BUFFER POINTER IN 2 
«INTEN,FUNC(R4) ; ALLOW INTERRUPTS 



R5/LDFUNC 
MAIN 



?NQ WE ISSUE IT 

;G0 BACK AND DO ANOTHER 



.SRTTL ROUTINE TO LOAD FUNCTION 

?CALL JSR R5/LDFUNC 

MLL INFORMATION MUST BE SET UP IN 

?R4 HAS POINTER TO BUFFER 



DRIVE BUFFER 



LDFUNC: MOV 
BIT 

BNE 



DCS(R4),R3 
#BIT7,(r - 



3) 



ERRSF 

TRAP T$ 

.WORD 20U 

.WORD PRGER 



200./PRGER 
RCODE 



JGET CSR FOR DRIVE 
?CAN WE ISSUE COMMAND? 
JVES/ GO ISSUE COMMAND 

JTHIS ERROR SHOULD NEVER PRINT 



)002 IS: 



^346 

00 46 

046 



MOV 
MOV 
MOV 
MOV 
BIS 
BIS 
BTC 
MOV 
BIC 
RTS 



iBBA(R4)/BA(R3) JLOAD BUS ADDRESS REGISTER 

5SMS5^'PJJ53) ?LgAD disk address register 

8NKX?55<^5JSlL,A^9*'' MULTI-PURPOSE REGISTER 
£yy^.'^?ii<PSSADR(R4) ?GET FUNCTION 
0RSEL(R4)^BCSADP<R4) JSET DRIVE SELECT BITS 
fCRDYlDRDY^BCSADR(R4) ;SET CRDY:DRDY IN IMAGE 



fUKUf lUKUI/Ol-a 
0Pl£BCSApR(R4) 
BCSADR(R4LCS(R3) 
#CRDY/CS(R3) 
R5 ?EXIT 



JWE'RE CLEAR BIT 10 FOR DRIVE 7-4 (OKAY?) 
"LOAD CSR 
ISSUE FUNCTION 



.SBTTL INTERRUPT SERVICE ROUTINES 
BGNSRV INTRl 

^2LiPiP.RHEI„?E^CHFCK FOP ERRORS FIRST, IF NO ERRORS WE 

?CHECK FUNCTION PREFORMED. WE ACT ACCORDING IF FUNCTION IS: 

; 1- WRITE CHECK - NOTHING IF NO ERROR 

; 2- GET STATUS - READ AND CHECK DRIVE STATUS 

J 3- SEEK - NOTHING RTlJ SET RD HOR AS NEXT COMMAND 

? 4- RDHDP - COMPARE HEADER TO PRESENT POSITION 

; 5- WRITE - UPDATE XFER COUNT, EXIT 

; 6- READ - COMPARE DATA IF REQUESTED, UPDATE XFER COUNT, EXIT 

lf*V[lrl"?FflESt f^^T^.E'^O^ INTERRUPT ROUTINE TEST RETRY 

ikFihv, i'r,\ih^uh'si' ^'"" "^^ "^ ^"" ^^^°^' ^^^^"^ '^™ 
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INTERRUPT SERVICE ROUTINES 

;0N ERRORS - IF DRIVE ERROR 
} DO: GET STATUS - 



■ UNDER NON-INTERRUPT 
INVESTIGATE ERROR TYPE 



015532 



DRIVE RESET 



- IF ERROR OCCURS AGAIN - FATAL ERROR 
DRIVE ERROR IS LOGGED UNDER 'aLl"6iRCUMSTANCES 

IF DCRC, HCPC, HNF CHECK BAD SECTOR LIST, IF IN LT^T 
lSI^SgL55RS''.^5" AS NORMAL, IF NOT irLlST ^"^ 
INCREMENT RETRY? IF RETRY LIMIT EXCEEDED 
LOG HARD ERROR, ELSE RETRY FUNCTION 

It gO«F^„I^SKI"ENT RETRY CHECK RETRY LIMIT 
IF RETRY EXCEEDED LOG HARD ERROR EXIT 
IF RETRY NOT EXCEEDED RFTRY FUNCTION 



MOV 

MOV 

BR 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MCV 

MOV 

MOV 

MOV 

CLR 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TST 

BMI 

JMP 



f^^fc-tSP) 

LSTDR1/R4 

SAVE 

LsfDR?jR4 

E.CS,-(SP) 

E.BA,-fSP) 

E.DA,-(SP) 

E.MpS-CSPJ 

F.mp5,-(SP) 

CHKSEC,-(SP) 

HDRFND,-(SP) 

TEMPI, -(SP) 

WHY,-(SP) 

OPCALL,-(SP) 

INCALL,-(SP) 

R3,-(SP) 

R?/-(SP) 

Pi,-(SP) 

RC,-{SP) 

WR1PG(R4) 

DCS(R4),R3 

CS<R3),E.CS 

BA(R3),E.BA 

DA(R3),E.DA 

MP(R3),E.MP 

MPfP3|,E.MPl 

MP(P3),E - 

E.CS 

IS 

CHKFNC 



;SAVE PRESENT R4 VALUE 

J^FcISI SFi^l BUFFER OF INTERRUPTING DRIVE 

'§&!iE„PRESENT R4 VALUE 

;GET THE DRIVE BUFFER OF INTERRUPTING DRIVE 



,E.MP2 



??AVE R3 
?R2 

?"! 
;R0 

'£|;P5^I"E„WRITE IN PROGRESS FLAG 
'S?T CSR FOR INTERRUPT 
?SAVE ALL REGISTERS NOW 1 1 



?ANV ERRORS? 

n^S, GO SOLVE ERROR MYSTERY 

?N0, GO SEE IF WE HAVE TO DO ANYTHING 



.SBTTL CONTROLLER ERROR CHECK ROUTINE 

•IT is!^ ^°^^ ^^^"^ °^ ^^^^^^ ^^"'"^ ^^^^ ^""^ ^"IC" ONE 



) 
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) 




000064 1%: 
002250 



002250 2$J 



002250 23$: 
000052 



002250 3$: 
002250 



000052 4S: 



MOV 
BIT 
BEQ 
JMP 
BIT 
BNE 
JSR 
BIC 
CMP 
BEQ 

INC 

ERPDF 

TRAP 

.WORD 

.WORD 

.WORD 

JMP 

BIT 
BEQ 
MOV 
INC 
JMP 

BIT 

BNE 



ERRSF 

TRAP 

.WORD 

-WORD 

.WORD 

BREAK 

EMT 

BR 



MOV 
INC 
BR 



e.da,lstda(r4) 
Iderr^e.cs 

CrOERR 

#DRDY,E.CS 

22S 

R5,r,ETDST 

#100, Rl 

Rl^»34 

23S 

ERRCNT(R4) 
1000.,NORDY,ERR 

NORDY 
ERR9 

EXITl 

fNXM/E.CS 

8MTNXM,RTYPE(R 
N)fMCNT(R4) 

#BIT12IBIT11,E. 

|OPI,E.CS 

10.£UOERR,ERR1 
TSEPCODE 

ODERR 
ERRl 

CSBRK 
33$ 



^nlSEI?5IFE^R^>'SRT UP FOR "OPI" PRINT 

pPICNT(R4) JLOG ERROR 

111$ ;CHECK RETRY EXIT BACK 



?SAVE DA FOR SOFT ERROR PRINT 

;DRIVE ERROR? 

JNO, CONTINUE 

JYES, GO CHECK DRIVE ERROR 

;ORIVE READY THERE 

?X|Si- CONTINUE CHECKING 

;N0,GBT DRIVE STATUS 

?GET RID OP HEAD 

?ALLOW ONLY SEEK TRACKING STATE 

;HAS 34 SKIP ERROR 

HNDICATE HARD ERROR 



;NON-EXISTANT MEMORY? 

;LOG ERROR 

?CHECK RETRY^ EXIT BACK 

CS ?QUALIFING BITS SET? 
?YES, CAN'T BE OPI ALONE 



;OPT SET? 
;YES, CONTINUE 

?WE HAVE AN UNDIAGNOSABLE CONDITION, ONLY COMPOSITE SET 



Ic^'ct^'krEtcr "'"'•^ "^'' DCRCHNF, OR HCRC 



002000 002250 55: 



BIT 

BNE 



|OPI,E.CS 



.485 
,486 



014614 032737 010000 002250 



;IT'S NOW DOWN TO DLT OR DCRC 
BIT #DLT,E.CS 



;pPl QUALIFIER SET? 

?YES, THEN IT'S HCRC OR HNF 



?OATA LATE? 
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002172 6S: 
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118S: 



BEQ 
MOV 
INC 

BR 

MOV 
DEC 
DEC 
JSR 
TST 
PNE 
INC 
MOV 
CMP 
BNE 
BR 

TST 

BEQ 

PRINTF 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

JSR 

BR 



|?ffc??g5r--'ii_i:sV^"-"-"S^ 



E.DA.CHKSEC 

LSTDA(R4) 

CHKSEC 

RSirCKBDSC 

HDRFND 



DCRCER(R4 



110$ 

--ic_ 

.,;DCRC,RtyPE(R4Ss 
jTNTENI§RCHK,?UNC(R4) 

ml 



;check retry, exit 

'SI^..OP sector to LOOK FOR 
;DgWN COUNT FOR PRINT OUT 
JDOWN COUNT FOR LOOP UP 
.^S?FL?P SECTOR LIST 
??ASnHPSP THERE? 

FS^S^E ERROR, RETURN 

ACCOUNT FOR BRROR 



iCReER(R4) nCCOUNT FOR fppno 



PRINT 



#FMfl4,#DMPDCK 
#DMPDCK,-<SP) 

R5,DMPBUF 
111$ 



?DUMP BUFFER? 
?N0, EXIT 



?DDMP BUFFER 



?EKIT 



,IT'S NOW EITHER HNF OR HCRC 



SEQ 0071 



^^Fl1^1vsii'^^£yvLSslMilJ?ir?r»BiD-sp"c- 



caRRprCYUNblR 



h'En%^.g^?%^gi?;^gs^»gf?v-" "" 



BIT 
BEQ 
MOV 
JSR 
MOV 
PIS 
MOV 
MOV 
JSP 
DEC 
BEQ 
TST 
BMI 

MOV 
BIC 
CMP 

BEQ 



#HNF,E.CS 

R5,i§DRST 

DRSEL(R4)/R2 

tfRDHDR,R2 

R5,WTRDY 
Ri 

||(R3, 

R1/PRP0S(R4) 
10$ 



rSS^Si^ NOT FOUND SET? 
JNO IT MUST BE HCRC 

;allow foorty read headers to 

?P|!?S CYLINDER 
JREAD HEADER 

jJSSUE READ HEADER 

?pgNE 40 OF THESE? 

;||f; fPlRHSplE??^'^ ^*^^ *^^ 

;yes, go do it again 

;get header 

J¥S^X„P"T sector bits 

{IS cylinder head correct-? 

?vEs, go check bad sector list 



*^ # 
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015050 



015062 



005264 000072 

1463 



m 

064312 



015064 000137 016034 



INC 

ERRHRD 

TRAP 

.WORD 

.WORD 

.WORD 



TRERR(R4) 

20.,TRACK^ERR2 

TSEPCODE 

?ftACK 
ERR2 



?TRACKING DRIFT ERROR 



;FIX TRACKING ERROR 



8118?^ 



015100 000410 



mm 

015114 



015124 
015130 
015136 



015140 
015146 

mm 

015162 



um mw 



15737 002170 
005264 000032 



012764 664121 000052 



022764 
001417 

mm 

005737 
001401 
000554 

005264 

mk 



002170 



000024 
004126 




9$: 



002172 lOS: 



110$: 

lis: 

Ills: 



000044 
002172 



000052 



ERRHRD 

TRAP 

.WORD 

.WORD 

.WORD 

BR 

MOV 
JSR 
TST 

BBQ 
BR 

INC 

MOV 
BR 



30./EXHAUS,ERRl JWE CAN'T FIND GOOD HEADER ON THIS TRACK 



E.DA/CHKSEC 

R5,CKBDSC 

HDRFND 



lis 

GOER 



JGO CHECK BAD SECTOR FILE 
;WAS IT THERE 
?N0, LOG IT EXIT 
JYES IGNORE ERROR 



HNFERR(R4) ?LOG IT 

#MTHNF,RTYPE(R4)?SET UP FOR "HNF" PRINT 
GOFIN ;EXIT 



JIT HAS A HEADER CRC ERROR/ FIGURE OUT IF IT WAS 
;0N A READ HEADER OR «?EAD/?*R1TE 



13S: 
14S: 



CMP 

BEQ 

MOV 
JSR 
TST 

BEQ 
BR 

INC 
MOV 
BR 

MOV 
MOV 
MOV 
BIS 
MOV 
MOV 



rNTENIPDHDR,FUNC(R4) ;READ HEADER? 
3S ?YES, GO FIND OUT MORE ABOUT IT 

;N0/ IT MUST BE R/W 



E.DA,CHKSEC 

R5/CKBDSC 

HDRFND 

125 

nOERRX 



;BAD SECTOR SEARCH 
;WAS OUR DA THERE? 
?N0, MUST BE LEGIT ERROR 
;YES, IGNORE ERROR 



HCRCER(R4) SLOG ERROR 

»MTHCRC/RTYPE(R4) 

GOFIN 



fBBA{R4)|.Rl 

&40. /TEMPI 

»PDHDP,R2 

DRSEL(R4),R2 

DCS(R4),R3 

P2,CS(R3) 



USE IT'S BUFFER TO STORE HDRS 
40 CONSECUTIVE HEADERS 
READ HEADER 



. ■) 
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JSR 
MOV 
MOV 
MOV 
MOV 
DEC 
BNE 



R5#WT 




?WAIT FOP READY 
?READ ALL REGISTERS 
} 

;D0NE 40 YET? 
fm, GO BACK 



?WE 
?0R 
?IF 

99$j 

15$: 
16$: 



HAVE 40 HEADERS NOW LETS SEE IF WE CAN VFRTPV WHiTTHirD 



18$: 



002126 



19$: 



20$: 



MOV 
MOV 
BIT 
BEQ 
BIT 
BNE 
ADD 
DEC 
BNE 
BR 

CMP 

BNE 



MOV 
MOV 
ADD 
BIT 
BEQ 
BIT 
BEQ 
INC 
CMP 
BNE 



MOV 
JSR 
JMP 



CLR 

ADD 

MOV 

MOV 

BIC 

SUB 

BMI 

SUP 

BR 

SUB 



P8BA(R4)/R2 
#40., PI 
|0PI/(R2) 

#HCPC/(R2) 

#}I,R2 



ill 



R2,«BBA(R4) 
21S 



BBPA(R4)/Rl 
«1,R3 
#10/R1 
|np!/(Rl) 

#MCRC/(R1) 

R3 

KMBDMSC,WHV 

R5,DRDRV 

EXITI 






R3/R2 



'2ST.^2"FPKR START 
?FOURTY HEADERS 
?IS OPI SET IN CS 

;done 40 



?IS HEADER FIRST ONE? 
.'vPc ^ilS-P^EYJlSUS^HEADER 
?yES/ WE'LL HAVE TO GO THRU 
'5^R S"EC^ OTHERS BEFORE WE 
?,^^L^AEifcy CALCULATE 

;"snpposED" bad sector 



;DR0P DRIVE DUE TO 

;M0RE than 16 BAD SECTORS 



;CLEAR^THIS CS 
''Mil HEADER 

;mask only sector 

?this sub produces wrong answer 



i 
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um 



J464 
>466 



.,„„ ^„ 5fACYll 30A(1052) 
NOV-78 Iflj 28 



015532 
5536 



ill 



005012 

l6|702 000006 

177700 
000050 

000050 

im lllm 

-01664 

000137 016350 

000137 016452 



000044 
000040 

mm 



30-NnV-78 .„. 
CONTROLLER ERROR 
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21S: 



ADD 
BR 

CLR 
SUB 
MOV 
INC 
MOV 
BIC 
CMP 
PLT 
SUB 
MOV 
JSR 
TST 
BEQ 
JMP 



GOFIN: JMP 




?FIX IT UP 
;G0 CHECK FILE 



?CLEAR THIS CS OUT 
?GET PREVIOUS HEADER 



#40.,R2 

R2/CHKSEC 

R5,CKBDSC 

HDRFND 

99$ 

ERREX 



FUNC(R4),R1 



,R1 



.SBTTL COMMAND SERVICE ROUTINES 
?THERE WAS NO ERROR SO 

CHKFNC: MOV 

ASR 

BIC 

DEC 

BNE 

JSR 

JMP 
25: DEC 

BEQ 

DEC 

BEQ 

DEC 

BEQ 

DEC 

BNE 

JMP 
IS: DEC 

BEQ 



IL 



Rl 
AGSTAT 

ASEEK 

Rl 

ARDHDR 



ERRSF 
TRAP 
.WORD 
.WORD 



AWRITE 

Rl 

AFREAD 

21C.,PRGER 
T5ERC0DE 
2l0 
PRGER 



;GET FUNCTION OF DRIVE 
?ALIGN THE FUNCTION CODE 
;WIPE out INT. ENAB (SHIFTED) 
?WRITE CHECK?? 
?N0/ BRANCH 



?GET STATUS? 

;branch if SO 

ySEEK? 

;branch if SO 
;rdhdr? 

?BRANCH if SO 

?write? 
;N0^ branch 



;read? 
?branch if so 



r 



§S'ir"5f=Nov-7a 'imi' ""'''' 



mm mm 



2) 3i)-N0V-7B le!42 P»GE 3-g 
COMMJND SERVICE ROUTINES 



nm 



005064 
000137 



-5662 
i5662 
.5666 
.5670 
'5674 
,5674 

5706 



015730 

mm 

015744 
015752 



516401 

mm 

022764 

km 

022764 

hum 

162764 
000557 



000653 
000054 

1J959O0 

000054 
016350 



000002 
023420 



000060 
023420 



000004 



S^i^f^ 212291 002256 

m mil ^8^^^^ 

meiu mi^^ °«»»'" """"^ 



005264 000016 

000062 
002634 



005264 000072 
003110 



99$: 



BIS 
INC 
CMP 
BLT 
INC 
CLR 
JMP 



AFWRCK! 

1$: 



EMT 
JSR 

MOV 
NEG 
ADD 
CMP 
BHI 
INC 
SUB 
CMP 

m 

SUB 
BP 



; MOV 

BIC 
CMP 

BEQ 

PIT 

BEO 

INC 

ERRHPD 

TRAP 

.WORD 

.WORD 

.WORD 

BR 

INC 

ERRHRO 
TRAP 
.WORD 
.WORD 



SKCNTl(R4>r#1000.„^nO(32 REACHED 

SKCNT(R4) 
SKCNT1(R4) 

ERREX 



",,„^*v\3) ronuntu 

>N0, EXIT 

;VES, BUMP THOUSANDS 



AFREAD: SETPRI 
MOV 



#340 
R5,CKDATA 



;CHEC»f DATA 



BWP(R4),R1 



;bump up xfer coumt 

^^ft^E POSITIVE 
;ADD THE BITS 
^^«vwv.,.^Arnxvrs)^^?10(8) REACHED YET 

RXFR2(R4) 
flOOOO./RXPRlf 
|10000.,RXFR2(.. ., ,.-..« 

R?FR3fR41__ |?g§ BUMP 65K lOnO) 
2(R4)^j^?MAKE 10(10) 5 



-•'^•Nrn/^nx fVUKf UK 

•^I JMAJTF pn«; 

5k?FRiP4) ; ADD THE 

#10000. ,ftXF6l(P45 ?10(8) .o 

R4)_ , iBufip^fllini 
•'iHEiJRfi ;sTiRT 16(8) 

./RXFR2(R4)._?10.(1Q) REAC 



., AT 
ACHED YET 



#10000. ,RXFR2( 



READ HEADER 



F.MP-Rl 

SECM§K,R1 

PRP0S(ft4T,Rl 



?GET HEADER 
!?§^5o92I„SRCTOR BITS 
;IS HEADER CORRECT? 
;YES, CONTINUE 



|SKD0N,PRFLGS(R4) 



SKECNT(R4) 

50 
MSKER 



;BR{J!H^"PTK{!Kfii'^ °' TRACKING ERROR 



TRERR(R4) 
5 



TRACK 



JACCOUNT FOP SEEK ERROR 



;BRANCH AROUND TRACKING ERROR REPORT 



# m 
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READ HEADER 



007566 



000056 
000056 1$: 



INC 
CMP 
BLOS 

ERRHRD 

TRAP 

.WORD 

.WORD 

.WORD 

BR 

MOV 

BIC 

BR 

BIC 

CLR 

MOV 

BR 



MOV 
BIC 
TST 
BEO 
BIC 
BIT 
BEQ 

IMC 

ERRHRD 

TRAP 

.WORD 

.WORD 

.WORD 

MOV 
BIC 
CMP 
BEQ 
CMP 
BEQ 

INC 

ERRHRD 

TRAP 

.WORD 

.WORD 

.WORD 

BR 



RSEEK(R4) ;SET RETRY IN PROGRESS 
RSEEK(R4),T.SLT ;RETRY EXHAUSTED????? 
4? JNO, THEN RETRY 

333 

SEXHAU 
ERR2 
l? 



' ■) 



Rl#.t§THDR(R4)^_?SET.IIP_RETRY 

- -- JE 

S§IP0N«PRfLGS(R4) JSET VERIFICATION DONE 



R1,LSTHDR(R4) J 
|SKD0N/PRFLGS(R4) 
EXIT 



J ALLOW SEEr 
EXIT^ 



RSEEK(R4) 
R1,PRP0S(R4) 

EXIT 



?MAKE THIS HEADER PRESENT POSITION 



GET STATUS 



E.MP^Pl 



Rl 



#WLeRl 
|l77400. 



ERRCNT(R4) 

60.fMDSER,ERR4 

TSERCODE 

MDSER 
ERR4 

RI4R2 

#177700, R2 

i»34,R2 

EXIT 

#35,R2 

EXIT 

ERRCNT{R4) 

70.£MDSER/ERR4 

TSERCODE 

70 

MDSER 

ERR4 

EXIT 



?GET STATUS 

;CLEAR OUT HEAD SELECT 

JREAD ONLY 



;ANY BITS WRONG 
?N0, CONTINUE 



?STATUS BITS WRONG 



JCOPV STATUS WORD 

?GET STATE BITS 

?COVER^CLSD, HEADS OUT, BRUSHES HOME, SEEfT TRACK COUNTIN 

JYES, EXIT 

;CpVER^CLSD, HEADS OUT, BRUSHES HOME, SEEK LINEAR MODE 

;YES, EXIT 
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000042 




000006 

000010 



004160 



AWRITE: MOV 
NEG 
ADD 
CMP 
BHI 
INC 
SUB 
CMP 
BHI 
INC 
SUB 

1$: TST 
BEQ 
JSP 

EXIT: TST 
BEO 
CMP 
BEQ 
INC 

FRRSOFT 

TRAP 

.WORD 

.WORD 

.WORD 

EXITl: CLP 

000104 ERPEX: BIC 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

MOV 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

t,«n-,, ENDSRV 

L10023: 

RTI 

FINFRR: JSR 

000116 MOV 



18:42 PAGE 3-11 
WRITE 

WRITE 

|MP(R4),R1 

R1*WXFR1(R4) 
nOOOCWXFRU 

WXFR2(R4) 

nO0O0.,WXFR2( 

WXFR3(R4) 
|10000.,WXFP2( 

FXIT 
R5,SETWCK 

RETPY(R4) 

ERREX 

RTYPE(R4),<fMTDR 

FXTTl 

SFTCNT(R4) 



?G5T WORD COUNT 
?MAKE POSITIVE 
?ADO THE BITS 
J ,^?10(5) YET? 
fNO, EXIT 
iVES BUMP 10(10) 
' 'ISJfhGOES to 
\,0'mV' VET? 

WRITE CH 



ZERO 



INC 65K 
^ /MAKE 
PERFORM 



CHECK 



80.,MSFER,ERR3 
TSERCODE 

MSFER 
ERR3 

RETPY(R4) 



JIN PROCESS OF RETRYING? 



;YES, LOG SOFT ERROR 
;REP0RT SOFT ERROR 



;CLEAR RETRY 



(SP) 
(SP) 
(SP) 
(SP) 
(SP) 
(SP) 



HNTEN,aDCS(R4) 
iSP)+,R0 
~)+/Rl 

♦/R3 
)+/INCALL 
)+,OPCALL 
,-- )*,WHY 
(SP)+, TEMPI 
(SPU,HDRFNO 
(SP)+,CHKSEC 
(SP)+,E.MP2 
(SP)+,E.MP1 

(SP)+,E.DA 
(SP)+,E.BA 
<SP)4,E.CS 
(SP)+,R4 



R5,RCNT 
E.CS,S0FTCS(R4) 



ipFTRV 7^J^^ II SI B^E EXCEEDED 
/RETRY LIMIT, IF SO IS AND REPORT HARD 



ASSEMBLY ROUTI 
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mui mm 



m 




30A(1052) 30-NOV-78 



JMP 
INC 



002126 



18S42 PkGE 3-12 
WRITE 



ERPHPD 

TRAP 

.WORD 

.WORD 

.WORD 

JSR 



ERREX 
ERRCNT(R4) 

90.,MHDER,ERR1 
TSEPCODE 

MHDER 

ERRl 

R5/CLRWCK 



?NOT EXCEEDED E 
INDICATE ERR08 



;non-recoverable error 



BR EXITl 
.SBTTL DRIVE ERROR SERVICE 

?WE HAVE A DRIVE ERROR, LET'S GET THE STATUS 
CKDERRS INC DERCNTCU. 

;repopt illvE erIW'^'' 



ERRHRD 

TRAP 

.WORD 

.WORD 

.WORD 



RiRCNTlR4) ;ACC0UNT for error 
;GET DRIVE STATUS 

DRVER 
ERR9 



874 
1875 



-166> . 
016636 



00 4537 
4537 

12737 



021 

W 



002735 002126 



?ACT ACCORDINGLY TO DRIVE ERROR 
»VC,R1 

#|kto,ri 

iwOElHCE!SPE,Rl 

kS^isdrst 
10s 

R5/ISDRST 
R5,GETpST 

#w6est,whv 
91 S 

R5,ISDRST 
R5,GET0ST 

#MVCER,WHy 



20$: 



BIT 

BNE 

BIT 

BNE 

BIT 

BNE 

BIT 

BNE 

JSR 

BR 

JSR 

JSR 

BIT 

BEQ 

HOV 

BR 

JSR 
JSR 
BIT 
BEQ 
MOV 



JVOLUME CHECK? 
'tkie. SO ISSUE RESET 
?SEEK TIME OUT? 
lYESft^ISSUE RESET 

^lMr.^0 CHECK DRIVE READY 
fREPORT WGE DIDN'T CLR 
?DROP DRIVE 



TISSUE RESET 

;reset work 
'1% chk„clear 

JXilg SSi^'^.^RIVE READY 
?DR0P THE DRIVE 



i^S^i^yiLY ROUTI 
CZRLEB.Pll 
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032763 000001 
001004 
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91$: JSR 

JMP 

lOS: BIT 

BNE 



12s: 

13§: 



MOV 

EMT 

000000 PIT 

BNE 
DEC 

BNE 

002126 141$: MOV 
BR 



000000 14$: 



i^ii 



003352 002126 



BIT 

BNE 

PRINTB 

MOV 

MOV 

MOV 

MOV 

EMT 

iig 

JMP 

MOV 
JSR 
BIT 
BEQ 

EMT 
DEC 
BNE 
MOV 
BR 



Ei'rr 



ftDPDY,CS(R3) 
101$ 



RDY^WHY 



PRINTB 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

JSR 

JMP 

MOV 

JSR 



|DN1 
91$ 



#rMT14,«MRDER 

|MRDER;-fSP) 

iFMT14,-(SP) 

C$PNTP 

#6,SP 

R5,GHDR 

FINEPR 

#4,R2 

R5,ISDRST 



|li888l,R0 
CSWTU 

»DRDY,CS(R3) 
14$ 

R2 
13$ 

#MDERS,WHY 
91$ 

»nERR,CS(R3) 
141$ 

■■FMT14,#MRDER 
R,-CSP) 



[MRDER,-(SP 



tFMT' 

c$Ntb 

#6,SP 

PfigGHDR 

EXIT 

rpJgetdst 

#P|T4,R1 

#1. 

ftl.,RO 
C$WTM 
R2 

JUNLOAD^WHY 



SEO 00 79 



/DRIVE READY POSTED? 
;YES, PRINT RECOVERED 



;N0, DROP DRIVE 
?PRINT DRIVE RECOVERED 



;SEEK TIME OUT 
?|SSUE DRIVE RESET 
^IQM TIMES BEFORE 
;DR0PPING DRIVE 



'R8IVE READY YET? 

?VES, CHECK IF ERROR CLEARED 

•YEf " ^^^^ "^^"^^ 



;VES, DROP DRIVE 



???irDi8?°8R?ii "'■•■■ 



;UNLOAD STATE 
;DR0P DRIVE 
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0003 
0003 



nfirtl77 
000200 
007562 

007564 

021214 



18$: 



000000 



oooob 



JSR 

HAITMS 

MOV 

EMT 

BIT 

BNE 

MOV 

WAJTWS 

MOV 

EMT 

BIT 

BNE 

DEC 

BNE 

MOV 

BR 



MOV 
BIS 
BIC 
JSR 
MOV 
BIC 
MOV 
MOV 
RTS 



R5,IS0RST 

llI|.R0 

CSWTM 

ttDERR,CS(R3) 

141S 

#61. /R2 

IB:, Ro 

CSWTM 
»DRDY,CS(R3) 

w 

IBS 

»NOLOAD,WHY 
91$ 

«CRDYjRDHDR,CS(R3 

R5/WTRDY 

MP(R3),R1 

SECMSKtRl 

R1,PRPDS(R4) 

*MTDRV,RTYPE(R4) 

R5 



?ISSUE RESET 



;drive error clear? 

?N0, DROP drive 
?YBS, WAIT 60 SECONDS 
JFOR DRIVE READY TO 



JCOME BACK 



?N0 READY DROP DRIVE 



;SETUP DRIVE ERROR 



??S""Ki IP„«RITE A BUFFER INTO MEMORY. OSES WORD COUNT AND BUS 
MDDRESS FROM DRIVE BUFFER (R4). WILL WRITE RANDOM FROM ONE OF 
J8 PATTFRNS. USED BY WRITE FUNCTION AND WRPACK ROUTINE. 



000042 



WRBUF; MOV 
MOV 
MOV 
MOV 
MOV 
NFG 
MOV 

2$: CMP 
BGE 
CMP 
BGE 
ADD 
SUB 

3$: MOV 
DEC 
MOV 
BR 

4S: MOV 
MOV 

5$: TST 
BNE 
MOV 
BP 

55S: JSR 



R3,-(SP) 

R2,-<SP) 

Rl^-VSP) 

RO/-(SP) 

BMP(P4),R2 

R2 




127. ,T 

»12fl.,(Rl)4. 

T.RAN 

55$ 

T.PAT/R3 

56$ 

R5,RAND 



?SAVE REGISTERS 



?R2 HAS TOTAL WORDS TO SET UP FOR 

;POSITIVE NUMBER 

;WHERE BUFFER IS 

;MQRE than 128 WORDS 

?YES^ BRANCH 

;nREATER THAN THREE WORDS 

?YES, BRANCH 

;add 3 

;WC UP BY 3 
?STORE WC 

;account for wc 
?load down counter 

;load down counter 

?random select of patterns 

;yea 

;no get pattern operator 

;wANTS to use 

?GET RANDOM U FOR PATTERN 



'^ 



ASSEMBLY ROUTINES 
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MACYll 
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MOV 
BIC 
56$: ASL 
ADO 
MOV 
MOV 
MOV 
DEC 

002216 '''• S8? 

7§: MOV 

DEC 

BEQ 

DEC 

BNE 

BR 
8S: SUB 

BGT 

MOV 

MOV 

MOV 

MOV 

RTS 




.SBTTL RETRY LIMIT ROUTINE 



?GET RANDOM PATTERN 

?0,7 

;WORD OFFSET 

;GET PATTERN LIST 

Jiil^LIST ADDRESS 

'^STOR FOR RECALL 

;LOAD IT 

;account for it 
;pattern start 

?16 ENTRIES 

;st0re pattern 
?down count 
;done? 

;D0NE with PATTERN 
;N0, GO BACIf 

;re|tart pattern 

?REST0RE REGISTERS 



SEQ 0081 



;RETRY BUMP, 



TViO RETURNS 



000036 007504 RCNT: 



1$: 



CALL 4-2 - RETRY EXCEEDED 
CALL +4 - CONTINUE RETRY 



CMP 
BEO 
INC 
TST 
RTS 



R|TPY(R4), LIMIT ?LIMIT REACHED? 



1$ 

RETRY(R4) 
(R5) + 

P5 



;yks take first return 

; ACCOUNT FOR RETRY 
?NEXT RETURN 
;RETURN 



.SBTTL LIST OF FUNCTION ROUTINES 

L^leS^rl"?" THIS LIST WHEN CALLED IN "GETFNC" 

;LIST is in NUMERICAL ORDER 1-6 (CONTROLLER RESET - READ) 



1 



LIST: 



.WORD 

WRTFNC 

GSTFNC 

SKFNC 

SJfFNC 

RDDFNC 

RDDFNC 



;WRITE DATA 
;GET STATUS 
?SEEK FUNCTION 
;SEEK FUNCTION 
;READ DATA 
;RRAD DATA 



.SBTTL BAD SECTOR FILE ROUTINE 



ASSEMBLY ROUTINES HJiCYll 
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) 




30M1052) 30-NOV-78 18:42 PftGE 4-3 
RAD SECTOR FILE ROUTINE 

?FIELD RAO SECTORS. _„ 

?T0 THE DRIVE ¥E WANT TO READ 



;CALL JSP 



RDBDSC! MOV 
MOV 
MOV 
MOV 

21S! JSR 
MOV 
JSR 
JSR 

MOV 
BIC 
MOV 
SUB 
MOV 
BIS 
MOV 
JSR 
JSR 
MOV 
JSR 
JSR 
MOV 
EIC 
CMP 
BNE 

MOV 
MOV 
MOV 



CLR 
MOV 
MOV 
MOV 
MOV 
DEC 
BNE 

MOV 
MOV 
JSR 
JSR 

TST 
BPL 



lis: 



021136 
000004 
002204 



JSR 

ADD 
TST 
BEQ 



R4 WILL CONTAIN THE BUFFER POINTER 
TO READ 

R5, RDBDSC 

RO#-(SP) SSAVE REGISTERS 

r|/-CSP) 

R3,-(SPi 
R5,ISDRST 



MP(R3),R0 

cvlmsk>r6 

#77600/Rl 

R0,R1 

Ri,BDA(R4) 



'Sll^aSiiBIB *I|D CALCULATE 
JDIFFERENCE TO GET TO 
?2*S„SECTER FILE/ AND GO 
?THERE 



#S^HS«§IGftlMK,BDA(R4) 

»SEEK,FUNC(R4) 

R5,LDPUNC 

RB-WTRDV 

<^RDHDR,FUNC(R4) 

R5/LDF0NC 

R5,WTRDY 

MPfRSKRO 

I77500,RO 
21$ 

{77700/BDA(R4J /SETUP^AND^RE Ap_IN THE 



ftPEADrFUNC{R4) 

TEMP3 

#HWSEC/WHY 

BSECPT(R4)/R2 

»16.,P0 

^-l/tR2)* 

RO 

11$ 

BSECPTCR4),R2 
«l6.eR0 
R5,LDFUNC 
R5,WTRDY 

PDCS(R4) 
3$ 

R5,ISDRST 

#4,BDA(R4) 

TEMP3 



.BAD SECTOR FILE ON SECTOR 
?0 

'c^^R£*Sll^P.NG/FIELD FILE SWITCH 
?START WITH MANUFACTURING BAD 
INITIALIZE LIST TO ALL I'S 
;SIXTEEN ENTRIES 



;get list to store 
;sixteen entries 



?was the read good? 
;yes 



?NQ, NEXT SECTOR 
?MANUFACTURING OR FIELD BAD 
JMANUFACTURING 



ASSEMBLY ROUTI 
CZRLEB.Pll 



NES MACYll 
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MOV 
CMP 

BNE 

BR 

CMP 

BNE 

BP 

MOV 

MOV 

MOV 

CMP 

MOV 

BMI 

MOV 

SWAB 

ROR 

MOV 

MOV 

BIC 

BIS 

BIC 

ASR 

ASR 

BIS 

DEC 

BNE 

MOV 

BP 

TST 
BNE 
MOV 
MOV 
BP 

JSP 
JSR 
MOV 
MOV 
MOV 
MOV 
RTS 

JSR 

BP 



ttSWSEC^WHY 
#77750, BDA(P4) 



BDA(R4), #77724 



aBBS(p4) Ri 

(Rl)*/SERNMlfR4 

?R1)+/SERNM2(R4 



lli'MlP 



TEMPI 

(R1)+/TEMP2 

TEMPI 

TEMPI 

TEMP1^(R2) 

IfJiE2/TEMPl 

.17735^,T^«P2 

TEMP2 
?EMP2,(P2)+ 

ImBDMSC/WHY 



877724, BDA(R4) 

#1,TEMP3 

4$ 

R5,DRDRV 

P5,HDH0MF 

(SP)+,R3 

(SPW/R2 

SSP)+#R1 

{SP)+,RO 

R5 

R5,DRDRV 
9$ 



?FIELD BAD 

;AT END OF FIELD BAD? 

}nn, GO BACK FOR NEXT 

HI l!!R Rl MANyPACTURING BAD 

;vis5^SEP°SR?lR^5E"«^ ^^""^ 

;START OF LIST 



SEQ 0083 



fS^ 



?GET LOW PART OP SERIAL # 

/GET CYLINDER 
iJn, IK"I END OF BAD SECTORS 
'S?.l TRACK AND CYLINDER 
jPl'IgJVLINDER IN HIGH BYTE 

^IIS^LSIL^^LI'^DER PART 
;GET SECTOR 
;LEAVE ONLY SECTOR 
;SET IN SECTOR BITS 

;SET IN HEAD 

;M0RE THAN 16 BAD SECTORS 

.'Sgfl^H^JO PIBLD BAD OR QUIT 

'SHIT^" ^0 FIELD BAD 

;SET TO QUIT NEXT TIME THRU 

;nROP THE DRIVE 
?BRINGS HEADS HOME 



SBTTL ROUTINE TO PROP DRIVE 
ROUTINE TO DROP A DRIVE FROM RUNNING 



^ 4 
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?R4 HAS BUFFPR POINTER OF DRIVE TO DROP 
}ME CLEAR PIT IN "DRWT", NOT "DRPRS" 



C02326 

mm 




ODRDRV: 
DRDRV! 



m\\ mm 



INC 

MOV 
MOV 
MOV 
INC 
CLR 
MOV 
MOV 
CMP 
BEQ 

III 

ADD 

BR 

TST 

BNE 

DODU 

MOV 

EMT 

CLR 

CLR 

MOVB 

MOVB 

BNE 

INCB 

BICP 

PRINTF 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTF 

MOV 

MOV 

CLR 

BISP 

MOV 

MOV 

MOV 

EMT 

ADD 

PPINTF 

MOV 



OPCALL 
R1/-(SP) 

INCALL 

SpRByF,R2 
«1/Ri 



?SAVE REGISTERS 



JSTART OF DRIVE BUFFERS 

?MASK 

;IS THIS THE DRIVE? 

;YES GO DROP IT 

?N0 SHIFT MASK 
?NEXT BUFFER 
?G0 RACK 



■) 



«PRP0S*2/R2 
1$ 

OPCALL 

R^ 

C§60DU 
INCALL 
OPCALL 

fl9yR«RPHSHR^J4) ?time at which it was dropped 

MINUTE, DPMIN(R4) jHOUR/MINUTE 
35 ?IF MINUTE 0/ 
nPMIN(R4) JMAKB 1. 
UT "■■ 



.?PLEAR TH 



»FfiT7,tfTIME/H0UR;MINUTE, 

Sdrnm,-(sp) 

DCS(R4)/-(SP) 

ttMRLCS,-(SP) 

SEC0ND,-(SP| 

MINUTE, -(SP) 

HOURfc-CSP) 

ftTIME,-(SP) 

iFMT7,-(SP) 



:C0N6/»MRLCS,Dci(R}L#DRNM 



#FM^7A/<B,DRSEL*1(R4)>,«DR0P,WHY 

WH¥,-(SP) 

#DROP,-(SP) 



DRSEL+1(P4),(SP) 
#FMT7A,-(SP5 

SP^RO 

C5PNTF 

#12,SP 

IfFMTSl 

#FMTSl,-(SP) 



) 
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020450 
020454 
026456 
020460 



020470 



35-N0V-78 in^.W 



000001 



062706 
00 4737 



mil 



020476 000205 



m 



mm 

000205 



020600 012700 
020604 012703 

^20610 

02"' " 

02__ 

0206 




024430 
OOOOIO 

002206 



023620 



3CA(lf»52) 30-NOV-78 18:42 PAGE 
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000004 
011570 



007520 



000340 



MOV 
MOV 
EMT 
ADD 

JSP 

MOV 
MOV 
MOV 

RTS 



ii'^iSP) 

SP,PO 

C^PNTF 

#4,SP 

PC#PEPORT 

(SPU,R3 
(SP)+,R2 
(SP)+;rI 

R5 



•SBTTL ROUTINE TO CHFCK DATA 
;RQUTINB TO CHECK DATA ON READ 




204 
176 



97S: 



96$: 



TST 

BNE 

RTS 

SETPRI 

MOV 

EMT 

MOV 

MOV 

NEG 

MOV 

CLR 

MOV 

MOV 

MOV 

DEC 

BFQ 

DEC 

MOV 




aBBA(R4)rR2 
BMP(R4),fEMPl 

DELMT,TEMP2 
DECNT 

CMRD,TEMP3 
»126., TEMPO 



TEMPI 



CFND 

Rl 

(R2)+/TEMP4 



SEQ 0085 



;REST0RE REGISTERS 



}m, EXIT 



?BUFFER START 
;WORDS READ IN 
?MAKE POSITIVE 
;« ERRORS TO BE PRINTED 
?INIT ERROR COUNT 
» WORDS TO BR COMPRRSD 



;126 WORDS 
;N0"" 



JMAKE SURE PATTERN ADDRESS IS 

#PATLST/RO 
1^8. -R3 
(P0)+/TEMP4 

P3 
98$ 



99$: 



MOV 
MOV 
CMP 
PEG 
DEC 
BNE 

CMP 

ERRHPD 

TRAP 

.WORD 

.WORD 

.WORD 

JSR 

RTS 

DEC 
MOV 



N-7,ER0 WORDS 

;PATTERN ADDRESS 
LEGAL 

;FOnND IT YET 
;YES, CONTINnE 

',h0, exhaust list yet 
;no, go back 



\ 



l«0./fioREV,ERP13 
T$ERCODE 

IPO 



NOREV 
ERRI3 
R5,STDMP 

P5 

Rl 
TEMP4/R3 



iM?°SgSREl§ '"'^^' ''''''' 



ASSEMBLY ROUTIN 
CZRLEB.Pll 3i 
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002202 
002200 



002210 



5$I 



05337 
01656 



DEC 
MOV 
TST 
BEO 
TST 
BEO 
TST 
BEQ 

TST 

BNE 

MOV 

MOV 

MOV 

DEC 

BP 

CLR 

CMP 

BEO 

INC 

IMC 

TST 

BEO 

ERRHRD 

TRAP 

.WORD 

.WORD 

.WORD 

DEC 

DEC 
BEQ 
TST 
DEC 
BEQ 



TEMPI 

1^16., TEMPS 

TEMPI 

CEND 

TEMP3 

CEND 

Rl 

3< 

TEMP5 

2S 

TEMP4/R3 

fl6.,tEMP5 

(R3)+#GDDAT 

TEMPS 

4S 

GDDAT,(R2) 

DECNT 

DATCER(R4) 

TBMP2 

55 

180./MDCER,EPR8 
fSERCODE 

MDCER 

ERR8 

TEMP2 

TEMPI 
CEND 
(R2) + 
TEMPO 
9^=$ 



JACCOUNT ONCE AGAIN 

4§,.EJ'i5IP TO PATTERN 

;ANY WORDS READIN LEFT? 

?N0. GO TO END 

'HIXE^WE EXHAUSTED COMPARE LIMIT? 

JYES GO TO END 

l?iRg''P?K"§K?p""'"' °^ ^^"^ "'■'•' 

?PATTERN 

?WITHIN PATTERN 

;YES SKIP 

;N0, START OVER 

?16 ENTRIES 

;GET PATTERN 

?DOWN COUNT 

JZERO FILL 
;CORRECT DATA 
?YES YES NEXT 
JDATA ERROR 

?D0 WE WANT TO PRINT IT 
JNO^SKIP 



;account for print 

yWORDS READ IN 
;NEXT WORD 



c*ias\r"3"i!Nov-7e i;§?jj' '"'"">Ro?,?ir;2%jir^.T;"=^ -^ 



i§ mm 



mm 



002204 
002174 



'^¥ 



TEMP3 
DECNT 



JWORDS TO CHECK 



?DgJ|jWANT TO PRINT SUMMARY 



i 
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CZRLEB.Pll 30-NOV-78 I8l28 

2255 021034 005464 000042 

2256 021040 
54463 
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00 4566 
000205 



IS! 
.SBTTL 



NEC 

ERRHRD 

TRAP 

.WORD 

.WORD 

.WORD 

RTS 



BMP(R4) 

•"" MpCER,ERR6 



190./ 

TSERCODE 

190 

MDCER 

ERR6 

R5 



iMAKE POSITIVE WORD COUNT 
(DATA ERROR SUMMARY 



ROUTINE TO WAIT FOR CONTROLLER READY 



021052 
021054 



mn 

021106 

mm 

021114 
021116 
021120 



0100 46 
010146 
012701 



032774 
001367 



104462 
001752 
QQ2464 
005164 

012601 
013600 
000205 



001750 
000002 
000200 



;Rg0TINE,T0 WAIT FOR CONTROLLER READY UNDER FLAG 
JMODE. USED IN INITIALIZE PORTION OF PROGRAM I.E. 
JGETTING RAO SECTOR FILE, WRITING PACK INITIALLY 



WTRDY: 

1$: 



MOV 

MOV 

MOV 

WAITUS 

MOV 

EMT 

PIT 

BNE 

DEC 

BNE 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 

MOV 
MOV 
RTS 



|l600.,Rl 

cswfu 

#CRDY,(aDCS(R4) 



IS 



JSAVE REGISTERS 
JWAIT A WHILE 



yREADY SET? 
JYES, EXIT 
?TIMED OUT? 
?N0 GO RACK 



1062.#NOCRDV,ERR12 

TSERCODE 

l0O2 



NOCPDY 
ERR12 

(SP)+,R1 
(SP)+/RO 
R5 



JRESTORE REGISTERS 



2297 
2298 



021122 
021126 



021142 
021150 
81*^56 
021164 
021172 
021176 



016403 
012763 

mm 

012763 
14276 




.SBTTL GET STATUS/DRIVE RESET ROUTINE 

;ROUTINE TO ISSUE DRIVE RESET 

;ALS0 get STATUS, Rl HftS STATUS IF GS 

?USES R3, DOES NOT SAVE IT 

GETDST: MOV 

MOV 

BP 
ISDRST: MOV 

MOV 

cstuff: MOV 

BIS 
BIC 
JSR 

CMP 
BEQ 

MOV 



DCS(R4)£R3 

#GSBIT,DA(R3) 

CSTUFF 

DCS(R4).R3 

fiDRST,DA(R3) 

#CRDYIGSTAT,CS(R3) 

DRSEL(R4),CS(R3) 

«CRDY£CS(R3) 

R5, WTRDY 

#DRST,DA(R3) 

MP(R3),R1 
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021212 000205 



14/UJ UU-flJft 

06303 



002136 




4205 
'712 



IS: 



.SBTTL ROUTINE TO GENERATE A RANDOM NUMBER 



MOV 
MOV 
MOV 

MOV 
MOV 
MOV 
ASL 
ROL 
INC 
BNE 
ADD 
ADC 
ADD 
ADD 
ADC 
ADD 
MOV 
MOV 
MOV 
MOV 
MOV 
RTS 



R1,-(SP) 

LnNUM,R3 

HINUM.Rl 

#-7,R2 

R3 

Rl 

P2 

IS 

L0NUM,R3 

Rl 

HINUM,R1 

#i057^R3 

Rl 

#47401, Rl 

P3,HINUM 

R1,L0NUM 

(SP)*-,R3 

(SP5+,R2 

(spu'ri 

R5 



.SBTTL ROUTINE TO WRITE PACKS INITIALLY 

|?A°?T"llN'?W0\gi f .'°f2r'' ''- "*"''' *°"«^'' ^^°^° '' 
'I^LSIlik *T^^^PT TO WRITE MULTIPLE SECTORS AT A TIME 
'^yJH^y^ 10 SECTORS) IF AN ERROR OCCURS WE WILL THEN 
r^glTE INDIVIDUAL SECTORS FOR THAT TRACK. ^ - - - *--- 



;READS ftND INCOPE COMPARISONS TO VERIFY. 



WF 00 WRITES, 



?CALL JSR P5,WRPACK 



MOV 

MOV 

MOV 

MOV 

MOV 

TST 

PNE 

PRINTF 

MOV 

MOV 

MOV 

MOV 

EMT 



RP,-(SP) 

R1,-(SP) 

R2,-(SP) 

R3^-£SP) 

BPA(R4),-(SP) 

WRIPG(R4) 

»FMTl«/«MSWRPff 

Imswrpk,-(sp) 

''FMT1B,-(SP) 



?SAVE REGISTERS 



;SEE IF WRITE 
JJUMP IF SET - 



IN PROGRESS WAS SET 
DON'T PRINT MESSAGE 



spCpo 

C5PNTF 



MIF^i^Xi?'^"^'^i^»„., na .^^^XU 30ft(1052) 30-NOV-78 18:42 P/SGE 6-2 
CZRLEB.Pll 30-NOV-78 1R:28 ROUtlNE TO WRITE PACKS INITIALLY 



miii mm 

npsoo 

104017 




000110 
000042 



000110 
000044 



ADD 

PRINTF 

CLR 

Rise 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
EMT 
ADD 
JSR 



If^t 



MTi7,»MRLCS,DCS(R4),#DRNM^<B,DRSEL«-l(R4)> 

D^SEL*1(R4),(SP) 

«DRNM«-<SP) 

DCS(R4),-<SP) 

tfMRLCS,-CSP) 

#FMT17£-(SP) 

«5r-(SP) 

CJPNTF 



#14, SP 
R5,HDH0ME 



?HRADS HOME 



JNOW^ACTUALLY WRITE DATA OUT ON PACK, WILL NOT WRITE LAST 



CLP 

CLR 

CONWR: CMP 

BNE 
TST 
BEQ 

eudwr: JSR 

MOV 
MOV 
MOV 
MOV 
MOV 
RTS 

;THIS PORTION 

;error occurs 
stspt: clr 

MOV 
MOV 
•JSR 
201S! MOV 
BIS 
TST 
BEO 
CMP 
BEQ 



TEMPI 

TEMPI 

STWRT 

R5-HDH0ME 

(SP)+,BBA(R4) 

(SPU,R3 

(SP)4-,R2 

(SPUJrI 

(SP)+,RO 

R5 



?TEMP1=HEAD 

?R1=CYL 

;CYL=255? 

;N0 go WRITE TRACK 

;YES^ CHECK IF HEAD = 1? 

JHEAD = GO WRITE 

JHEADS HOME 



;END EXIT 



WILL WRITE THE PACK USING MULTIPLE SECTORS IF A 
WE WILL GO TO 2S AND INDIVIDUAL SECTORS. 



R2 
«PUF1^BBA(R4) 

R1,PDA(R4) 
TEMPI, BDA(R4) 



jinitial sector 
;buffer start 

}10 SECTORS 

;WRITE BUFFER INTO MEMORY 

;SET UP SECTOR 



762S: 



021136 



BIS 
MOV 
MOV 
JSR 
JSR 
TST 
BPL 
JSR 
BR 



prp6s(r 

762' 

952^ 

R2,§DA(R4) 

#PUF1,BBA(R4) 



H,*,§r,*'?I^S^I'^„P50GRESS SET? 
-» „«.,r,.<J"^P IP NOT SET 
4),BDA(R4) SAT THE SAME ADDRESS WHEN DIED? 

;JpMP IF ON CYLINDER 

JELSE, LOOK AT THE NEXT CYL ADDRESS 



SET UP TO WRITE 



#WRTTE,FUNC(R4) JWRITE 

P5,LDFUNC 

'JS/cHIBQY ?WAIT FOR READY 

^DCS(R4) ;error 

R5,ISDRST 



ASSEMBLY ROUTINES MACYll 
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012764 000002 
2H537 014112 



30A(1052) 30-Npv-78 18:42 PAGE 6-3 

ROUTINE TO WRITE PACKS INITIALLY 



004537 014112 

mm mm 




000044 203S: 



MOV 
JSR 
JSR 
TST 
BMI 



ADD 
CMP 

BNE 

JMP 



#WRCHK,FUNC(R4) 
R5,LDFflNC 



R5,WTRDY 
aDCS(R4) 
205? 



JYBS GO DO SECTORS 



;next group 
;done'? 

?N0, GO BACK 

;yes next track 



INDIVIDUILLY 



JBY SECTOR?'' °^^"^^ "f^EN WE COME HERE AND DO THE TRACK SECTOR 



000042 
000040 ^^* 

000110 

91|: 
000044 96|: 



002172 



000002 



85$ 
000044 ROS 



000104 



CLR 

MOV 
MOV 
BIS 
BIS 

MOV 
JSR 
CLR 
CLR 
MOV 
JSR 
JSP 

TST 
BPL 

JSR 
MOV 
JSR 
TST 

BNE 

INC 
CMP 

RNF 



JSR 
BP 



CLP 
MOV 
JSR 
JSR 

TST 
BPL 



R2 
tf-128.,BMP(R4) 



R1,RDA(R4) 
TEMPI, BDA(R4 
R2,BDA(R4) 

SPU''li:BPA(R4) 
R5,WRBUF 



DECNT 

|WRITE,FUNC(R4) 
R5/LDFUNC 
R5/WTRDY 

»DCS(R4) 
85$ 

ST 

fcCHKSEC 

KTi.l^RHUSC 

HDRFND 
95$ 

DECNT 

DFCNT,#2. 

96$ 



;R2 = SECTOR 



?LO»D WORD COUNT 
;SETUP DISK ADDRESS 



;write a buffer 
;clear retrys out 

?wrtte function 

?watt for write to finish 

jerrqr on write' 
;no, go read 

:X?S',.£HinK tP sector is in 

;bao sector file 

;iF set, it was 

jyes go to next sector 

i^9'«5J^Ln ONE more try 

;IT MAY HAVE BEEN NOISE. 



r«=;,inpad 

95| 

RECNT /CLEAR RFTRV COUNT 

|tWRCHK,FUNC(R4) p'*'''^'' ^^^*^^ ^^^^^ 
R5,LDFUNC 
R5,WTRDY 



flOCS(R4) 
81$ 



;ERR0R ON READ 
?N0, GO COMPARE 



m 4 
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\ni 




^04537 021136 
016437 000040 

"m^ mm 



tfM mm 

001346 



000012 
_ .-- C00047 

00013^ 021666 



82200 
0200 
00205 

m?5 



022216 000137 P21434 




81$: 
95$: 



022222 
022230 
022236 



012764 
000760 



nmi 



s« 



002200 
000040 



MOV 
JSR 
TST 

BNE 

INC 
CMP 

BNE 



ADD 
CMP 
BGT 
JMP 

INC 
SUB 
CMP 
BEQ 
JMP 



TST 
BEQ 

CLP 
ADD 
MOV 
MOV 
JSR 
JSR 

JMP 

MOV 
MOV 
BR 



R5,ISDRST 

RDA(R4),CHKSEC 

RSeCKBDSC 

HDPFND 



RECNT 

RECNT,|t2. 

80$ 



Itl0./R2 

95li 
3§ 

ttio.,P2 



iht 



R2,ff 
952$ 

3$ 



TEMPI 
5S 



TEMPI 
#200, PI 



»205,BDA(R4) 
»SEEK/FUNC(R4) 
R5,LDFUNC 
R5,WTRDY 



#HEAD, TEMPI 
»21,BDA(R4) 



;CHECK IF SECTOR IS 
?A ffNOWN BAD SECTOR 
?TT WAS THEN 
;R0 to next SECTOR 

;niVE IT ANOTHER CHANCE 



?NEXT SECTOR (OFFSET BY 10) 

JDONE WITH TRACK? 

?YES NEXT TRACK 

>N0 GO BACK FOR NEXT SECTOR 

JNEXT SECTOR 
?DONE WITH TRACK? 

;VES 

?N0 



JWHICH SURFACE? 
?TOP (0), BRANCH 

?BOTTOM, SWITCH TO TOP WITH 



) 



?SEEK, GO IN ALSO 
?G0 SEEK 



JWAS TOP, MAKE BOTTOM. 



022240 016337 OOOQOO 002250 

mm oim'^ spssi esiiii 

022262 016337 000006 002256 

022270 016337 000006 O02260 

022276 016337 00<^006 002262 
022304 



022304 
022306 



104463 
000307 



mm mm 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

ERRHRD 

TRAP 

.WORD 

.WORD 

.WORD 



CS(R3),E.CS 

BA(P3)/E.BA 

DA(R3),E.DA 

MP(R3),E.MP 

MP(R3)/E.MP1 

MP(R3)#E.MP2 

109.,NWRTS,ERR13 

TSEPCODE 

199 

NWRTS 

ERR13 



) 
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2505 
2506 
2507 
2508 
2509 
251- 
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ROUTINE TO WRITE PACKS INITIALLY 

INC EPRCNT(R4) 

TST T.DPP ;ARE WE COUNTING ERRORS 

BEQ 2$ ; NO 

CMP fPRCNT(R4),ERLMT?PAST IT 

BLO 2$ ?Nn 

MOV «tFRLMTM,WHY 

JSR R5,DRDRV 

MOV #ENnWR,R5 



25: 
.SBTTL 



RTS R5 

ROUTINE FOR SYSTEM CLOCK 



;ROUTINE TO READ SYSTEM CLOCK 

;USES 'REGTIM' FROM DIAGNOSTIC SUPERVISOR 



TST 

BNE 

BREAK 

EMT 

RTS 

REQTIM 

EMT 

CMP 

PEQ 

MOV 

MOV 

SUB 
ADD 
CMP 
BGT 
SUP 
INC 
INC 
CMP 
BLT 
CMP 
BGT 
INC 
SUB 
RTS 



SYSCLK 
4<? 

CSBRK 

R5 

RO 

CpEQTIM 

R^/LSTTIM 

LSTTIM,R1 
R0,LSTTIV 

ROCSECOND 
#60., SECOND 

#60., SECOND 
INTERVAL 
MINUTE 
#60., SECOND 

#60.,wiNUTE 

3? 

HOUR 

#|C.,"INOTE 



;D0 we HAVE A CLOCK 
?YES, GO SERVICE IT 
;N0, CALL SUPER FOR "C 

;EXIT 

?get present time 

?was it moved 

;no movememt since last call 

;CALCULATE DIFFERENCE 

?and fix accordingly 

;rump seconds 
;SECONDS overflow 



;TImE BETWEEN REPORTS 
?RUMP MINUTES 



) 



.SPTTL HEADS HOME ROUTINE 

;ROUTINE TO BRING HEADS OVER TRACK 



««„«.. HOHOME: MOV 

000044 MOV 

JSR 

JSR 



MOV 
BIC 
MOV 
PIS 
MOV 
JSR 



PO£-(SP) 
#RDHDR ~ 



?SAVE RO 



Ku,-ibH; ;sAVE RO 

^Pi^KEf,f.P^^P''> J'^SAD HBADEP 

R5,LDFUNC ;na DO IT. 
R5,WTRDY 



MP(R3),R0 
#177, RO 



P0,BDA(R4) 
#MK, BDA(:R4) 
»SEEK,FUNC(R4) 
P?,LDFUNC 



>GET HEADER 

;QNLY CYLINDER 

;M0VE IT TO BUFFERED DA 



JSET MARKER 
JLOAD SEEK 
;SfiEKf 
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16464 000122 
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«««^^. JSR R5,WTRDY JWAIT. 

000050 MOV PRP0S(R4),LSTHDR(R4» 

CLP PRP0S(R4) -"" 

MOV (SP)+,RO 

RTS R5 



177700 
007540 



007542 



002272 
002272 



mm 

003256 
006462 
000004 



'4m 



jSEt BUFFER TO HOME 



007540 007542 



n 



.SBTTL RANDOM WC A WD DA ROUTINE 

^59Hnp,IO GET^RANDOM SECTOR AND WORD COUNT FOR R/W TRANSFER. 
??JCTpR^IS„CHOSEN BETWEEN MIN/MAX LIMITS, WORD COUNT IS BETWEEN 
...,„,...„ __..^^ JoJUSTED NOT TO CAUSE 



;MIN/MA5f WORD COUNT. ..„ 
?TRAC!C OVERFLOW IF HIGH 



WORD COUK. 
"* SECTORS 



AfiE CHOSEN.; 



?R4 HAS BUFFER OF DRIVE WE'RE WORKING WITH 
JON EXIT - BMP(R4) HAS WORD COUNT 



? 

GWCDA: 



99$: 



DISK ADDRESS 



CMP 

BNE 

MOV 

BR 

JSR 

MOV 

BIC 

CMP 

BHIS 

ASR 

INC 

BR 

CMP 

BHIS 

ROL 

RR 



J NOW GET WORD COUNT 



T.MXS,R2 

rLrand 

L0NUM,R2 
#177700, R2 
T.MifS,R2 



;min max sectors 

?N0- CALCULATE ^ 



;min max 

?N0- CALcuuR 
;L0AD SECTOR 
JGO GET WC 
?GET RANDOM » 



?0-77 ONLY 
;R2 LOWER THAN MAX 
;BRANCH IF YES 
;HALF IT 

;INC SO NOT 

;MIN OKAY 



FOR SECTOR 



7526 

7526 95$: 



007526 
007550 97S: 
007550 



TST 
BNE 
MOV 
CMP 
BHIS 

PRINTF 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

MOV 

CMP 
PGT 
MOV 



T.STIP 

95S 

MAXWCT.MXB 

MAXWC/T.MXB 

97$ 

#FKT13D,#0VER,T.MXB,MAXWC 

MAXWC,-ISP) 

T.MXB,-(SP) 

#OVER,-(SP) 

S^MTpD^-CSP) 



PMT13D,- 
C$PNTF 



T.MXB,T. 

6$ 

T.MXB^T. 



?MIN MAX EQUAL 
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004537 021214 

nim mm 



007526 



6$: 
7$: 



MOV 

RR 

JSR 

MOV 

BIC 

CMP 

BHIS 

ASR 

INC 

BR 

CMP 

BHIS 

ROL 

BR 



T.MXB/R3 

9§ 

R5|rRAND 

|tl6O060/R3 

T.MXB,R3 

8$ 

e3 



;YES SET WC 

?GET RANDOM WORD COUNT 

;MAxilif I 




;iF%ol lowIr^Iector*stapt'^° ^°"^'^' ^"^^^^^ ^"^"^ "^^^ ^°"^^ ^^^^ ''^ °^ s^^'f°" 



000050 



IJ?? 



It... 

006040 



95: 

11$: 



000040 12$: 
000040 



MOV 

NEG 

MOV 

DEC 

ADD 

RMI 

CMP 

BLOS 

MOV 

MOV 

BIC 

BIS 

RTS 



i4f,.,Pl 
R3,RMP(R4) 



Ih 



:8.,R3 



; SETUP FOP FOURTY SECTORS 

;MAKE word COUNT NEGATIVE 

?LOAD WORD COUNT 

'SSS^.SOUNT MINIMUM START SECT NEEDED 

;ONE SECTOR'S WORTH 

;STILL NEED ANOTHER SECTOR 

;DID RANDOM SECTOR SUFFICE 

?RRANCH IF SUFFICED 



R2,R1 

lki(R4),BDA(R4i«°'"™^^^^^"^'^^^^"T 

#77,BDA(R4) 

R2,BDA(R4) 

R5 



023104 004737 005230 



.SBTTL ROUTINE TO PUmr BUFFER ON DCK 

'^9M'^Mlr.l^ P"^P BUFFER ON DCK ERROR- TWO DUMPS ARE POSSIBLE 

IwhIn WE CAN'T f^O^^'^RE WHAT IT Sh6uL0 RE AND THE OTHER 

DMPRUF: JSR PC/LINEl 
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mm 

mi 

000200 
000042 



002252 
000400 



000200 
002314 
002252 

003737 

milt 



003434 
006507 
000002 



;CALCULATE THE STARTING BUS ADDRESS FOR THE COMPARE 



935: 



94$: 



3S: 



062706 
000532 



MOV 

BIC 

BIC 

MOV 

MOV 

SOB 

CLR 

ADD 

DEC 

PNE 

MOV 

NEG 

CMP 

BGT 

MOV 

SUB 

BR 

SUB 

MOV 

SUB 

MOV 

ASL 

MOV 

SUB 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

MOV 
CMP 

BEQ 
DEC 

BNE 

PRINTR 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

RR 



m\ 



./DWCNTl 
R^),RO 



11'" 



,M 



R0,R2 
R1/R3 

935 

BMP(R4),R3 

R3 

R2#R3 

945 

E.BA,R2 

#40C/R2 

96$ 

R2,R0 

RC/OWCNTl 

RC 

E.BA,R2 

R0*R2 

#FMT13/»BUSAD,R2i 

CHKSEC/-(SP) 

ttPUSAD,-(SP) 
<lFMT13i--<SP) 

<«5,-?sh 

SP^RO 

C$PNTB 

t*i4tSP 

«PATLST,RO 

p.<Rl 

{R0)-»-,2(R2) 

if 
1$ 

»FMT 
KNOR 
#FMT14^-i 

SP,RO 
C$PNTB 
#6,SP 
STDMP 



;GET STARTING BUS ADDRESS 

;GET PRESENT DISK ADDRESS 
;SAVE SECTOR BITS 

JSAVE A COPY 
?SAVE ANOTHER 
JGET^OIFF OF SECTORS 
?CALCULATE WORD COUNT 
JONE SECTORS WORTH 
?nONE 

;no 

jget word count 

?MA»rE IT POSITIVE 
^WORKING WITH FULL SECTOR 
?N0, GO CALC PARTIAL SECTOR 
;PRESENT BUS ADDRESS 
;START OF COMPARE 
?G0 COMPARE BUFFER 
;GET SECTOR DIFF 



:.) 



«CRLDA,CHKSSC 



14,»N0REV 



?CHECK PATTERN LIST 
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'^00200 




002176 
002202 



002210 



5$: 



CMP 
PHI 
CLR 
MOV 

MOV 
MOV 

NEG 

MOV 

SUB 

MOV 

MOV 

MOV 

TST 

BEG 

DEC 

TST 

BNE 

MOV 

MOV 

MOV 

DEC 

BR 

CLP 

INC 

CMP 

BEQ 



000010 



INC 

TST 

CMP 

BLE 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 



(P2),»128. 

DECNT 
T.CLT/Rl 

(P2)+/TEMP0 

TEMPC/DWCNT 

DWCNT 

(P2)+/TEMP1 

«2, TEMPO 

?2,TEMP2 

TEMPI, R3 

#16.,TEMP5 

TEMPO 

6^ 

TEMPO 

TEMP5 

55 

«16.#TEMP5 

TEMPI, R3 

(R3)+,GDDAT 

TEMPS 

7S 

GDOAT 

DWCNT 

(R2),GDDAT 



MT14B,TEMP2rGDDftT,(R2) 




;NaNZERO WORD COUNT 



;WORD 

?PATTEPN ADDRESS 
;16 ENTRIES 
JZERO OP PATTERN 
;ZERO BRANCH 

?WrTHIN LIST 



TEMP2 
1R2) + 

TEMP2#DWCNTl 

ftFNT9A, DECNT, TEMP2 

TEMP2,- 

DECNT, 



2/-(SP) 
T,-(SP) 

#FMT9A,-(SP) 



SP,P0 

CSPNTB 

ttlO,SP 
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mi 
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'oim mm 




RTS 

MOV 

MOV 

PRINTR 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

TST 

DEC 

BNE 

PRINTB 

MOV 

MOV 

MOV 

EMT 

ADD 

MOV 

DEC 

BNE 

RTS 

DEC 

BNE 

RTS 



T.CLT,Rl 
#10. ,63 



K^ilihjp' 



MTi4A<-( 



-(SP) 



jFMT 

SP#KU 

CSPNTB 

«FMT14C 
#FMT14C,-(SP) 

CSPNTB 
#4,SP 
«10.,R3 
DWCNTl 

R5 
H 
l| 
R5 



'5S11IIKI IE 9VL*R *^L DRIVE INFO, USED ON START OR 
JCALL JSR R5, CLEAR 



CLEAR! 

2S: 



MOV 
MOV 
CLR 
CMP 
BNE 
MOV 
RTS 



R4/-(SP) 

R4/ffENDBUF 

(SP)4-,R4 
R5 



;SAVE R4 

JGET BUFFER STARTS 

?CLEAR 

;AT END OF BUFFERS 

;no, go to 25 

?|E|T0RE current BUFFER POINTER 



.SBTTL routine to check for bad SECTOR 



;routine 

?FOR IN ■ 

; 



TO HATCH BID SECTOR. 



BD4fR4) IS SECTOR WE ARE LOOKING 



W.'. 



LIST POINTED TO BY BSBCPT(R45..:.:,HDRFND IS SET IF WE FIND IT 



CKBDSC: CLR 
MOV 
MOV 



nr-ini 



;CLEAR PLAG 
;SAVE RO 
?SAVE Rl 
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mm 



002170 



R2,-fSP) 
R3;-(SP) 

SsEcfT(R4),P2 
CHKSEC,(R2) 

it''* 



U 



MOV 
MOV 
MOV 
IS: MOV 
2S: TST 
BMI 
CMP 
BEQ 
TST 
DEC 
BNE 
BP 

3S! INC 

45: MOV 
MOV 
MOV 
MOV 
RTS 



JBUFFER TO STORE PAD SECTOR LISTS 

BSECO: .PLKW 16. 

BSECl: .RLKW 16. 

RSEC2: .RLKW 16. 

S§SS?S .BLKW 16. 

BSEC4! .BLK« If. 

BSEC5: .BLKW 16. 

BSEC6: .BLKW 16. 

BSEC7: .PLKW 16. 

?LIST OF PATTERNS USED IN WRITING 

PATLST: PATO 



;SAVE R2 

?SAVE R3 

?16 ENTRIES 

•END ^^^^^ WE'RE LOOKING 

JHAVE WE GOT A MATCH 

?THEN GO SET INDICATOR, ELSE 



?SET FLAG FOUND 
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052525 
125252 



.WORD 
.HORD 
.WORD 
.WORD 

-WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
-WORD 
.WORD 
.WORD 
.WORD 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 






n 



177777 
'77777 

fihi 

52525 
52525 

m 

052525 

hm 

052525 
177252 
177252 

mil 



mm 

177777 
177777 



177777 

177777 

mm 


177777 



:■) 



;■) 
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PAT4: .WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



SEQ 0101 



155555 
133333 
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.WORD 155555 



055132 
026455 

i\im 

122645 
151322 

im\ 

055132 
026455 
113226 



025050 000240 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
• WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
-WORD 
.WORD 
.WORD 
.WORD 
.WORD 



121105 

150442 

64221 

132110 

55044 

105504 
42642 

mih 

44264 
22132 

42213 

Vim 

77777 
77777 



E^DOFPROGRftM: 
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ROUTINE TO CHECK FOR flAO SECTOR 



iliiiiip 




umi: 



EMT 
HALT 



.SBTTL DRIVE INFORMATION BUFFERS 
?DRIVE INFORMATION BUFFER 

.LIST ME 
DRBUF: 



SKCNT 

RXPRl 

RXFR2 

WXFRl 

WXFR2 

EPRCNT 

SFTCNT 

SKECNT 

DERCNT 

DCRCFR 

HCRCER 

DLTCNT 

OPICNT 

HWFEPR 

NXMCWT 

RETRY 

BDA 

BMP 

FUNC 

RCSADR 

LSTHDR 

RTYPE 

SKCNTl 

PRFLGS 

RXFP3 

WXFR3 

LSTDA 

DIFWD 

DPHOUR 

TRERR 

DATCEP 

DOWCK 

SFRNMl 

SEPNN2 

DCS 

DRSEL 

BPA 

BSECPT 

RSEEK 

SCFTCS 

WPIPG 

PPPOS 



;SEEK OPERATION COUNT 

JREAD OPERATION COUNT (BITS) LOW ORDER 
f ** ** HICHORDFR 

JSRtTE OPERATION COUNT (BITS) LOa ORDER 

,'eRROR CO0"nT - H»RD " """ """^ 

JBRROR COUNT - SOFT 

?SEEK ERROR COUNT 

?DRIVE ERROR COUNT 

JDATA CRC ERROR COUNT 

?HEADER CRC ERROR COUNT 

?DATA LATE ERROR COUNT 

'QSIS^IISJI-INCOMPLETE ERROR COUNT 

;HEADER NOT FOUND ERROR COUNT 

'l^9S„l?ISXANT MEMORY ERROR COUNT 

yPRESENT RETRY NUMBER 

Kr. !!„ DISK ADDRESS CONTENTS 

?PRESSNT MULTIPURPOSE CONTENTS 

;LAST FUNCTION LOADED 

;CSR IMAGE OF LAST COMMAND 

?LAST POSITION ON DISK 

'iPiS^^SLJ^JS" RECOVERY IS IN PROGRESS 

?SEEK COUNT LOW ORDER 

;PROGRAM INTERNAL FLAGS 

?PEAD COUNT THIRD 

?WRITE COUNT THIRD 

'PfSIS 5DSBESS OF SOFT ERROR 

?last difference word of seek 
?time drive was dropped 
;tracking error count 

jwrite check necesary 
;serial number of cartridge 
;serial number of cartridge 
;csr address 

jdrive select bits(8^9,10) 
;present bus address contents 

;POINTER TO BAD SECTOR FILE 

;CSR AT TIME OF SOFT ERROR 

JWRITE IN PROGRESS HURING PWR FAIL 

;PRESENT POSITION ON DISK 



» I 
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mil 



025266 
025270 
025272 
025274 
025276 



025326 

mm 

025334 
025336 
^25340 
025342 
025344 



SKCNT 

RXFRl 

RXFR2 

WXFRl 

WXFR2 

ERRCNT 

SFTCNT 

SKECNT 

DERCNT 

DCRCER 

HCRCER 

DLTCNT 

OPICNT 

HWFEPR 

NXMCNT 

RETRY 

BDA 

BMP 

FUNC 

BCSADR 

LSTHDR 

RTYPE 

SKCNTl 

PRFLGS 

RXFR3 

WXFR3 

LSTDA 

DIFWD 

DPHOUR 

TREPR 

DATCER 

DOWCK 

SERNMl 

SERNM2 

DCS 

DRSEL 

RPA 

BSECPT 

RSEEK 

SOFTCS 

WRIPG 

PRPOS 



SKCNT 

RXFRf 

RXFR2 

WXFRl 

WXFR2 

ERRCNT 

SFTCNT 

SKECNT 

DERCKT 

DCRCER 



?SREK OPERATION COUNT 

?REftD OPERATION COUNT (BITS) LOW ORDER 

} •• •• '• " HIGH ORDER 

?WRITE OPERATION COUNT (BITS) LOW ORDER 

; " " " •• HIGH ORDER 

JERRQR COUNT - HARD 

;ERROR COUNT - SOFT 

;SEEK ERROR COUNT 

;DRIVE ERROR COUNT 

?DATA CRC ERROR COUNT 

;HEADER CRC ERROR COUNT 

JDATA LATE ERROR COUNT 

?0SE5APPS-t^COMPLETE ERROR COUNT 

JHEADER NOT FOUND ERROR COUNT 

JNON EXISTANT MEMORY ERROR COUNT 

JPRESENT RETRY NUMBER 

; " DISK ADDRESS CONTENTS 

;PRESENT MULTIPURPOSE CONTENTS 

;LAST FUNCTION LOADED 

?CSR IMAGE OF LAST COMMAND 

?LAST POSITION ON DISK 

?IS59''-,9.N WWICH RECOVERY IS IN PROGRESS 

;SEEK COUNT LOW ORDER 

^PROGRAM INTERNAL FLAGS 

;READ count THIRD 

?MRITE COUNT THIRD 

;DISK ADDRESS OF SOFT ERROR 

;LAST DIFFERENCE WORD OF SEEK 

;TIME DRIVE WAS DROPPED 

;TRACKING ERROR COUNT 

?WRITE CHECK NECESARY 
?SERIAL NUMRER OF CARTRIDGE 
J SERIAL NUMBER OF CARTRIDGE 
;CSR ADDRESS 

?DRIVE SELECT BITS(8/9,10) 
?PRESENT PUS ADDRESS CONTENTS 
;POINTER TO BAD SECTOR FILE 

?CSP AT TIME OF SOFT ERROR 

?WRITB IN PROGRESS DURING PWR FAIL 

yPRESENT POSITION ON DISK 



) 



ySEEK OPERATION COUNT 

JPEAD OPERATION COUNT (BITS) LOW ORDER 
? " '• " " HIGH ORDER 
JWRITE OPERATION COUNT (BITS) LOW ORDER 

JERROR COUNT - H.RD " "''" """" 
;ERROP COUNT - SOFT 
;SEEK ERROR COUNT 



) 



DRIVE ERROR COUNT 
DATA CRC ERROR COUNT 



ASSEMBLY ROUTINES MACYll 
CZRLEB.Pll 30-N0V-78 18:28 




30A(1052) 30-N0V-78 18:42 PAGE 7-3 
DRIVE INFORMATION BUFFERS 

HCRCER 

DLTCNT 

OPICNT 

HNFERR 

NXMCNT 

RETRY 

BDA 

BMP 

FUNC 

BCSADR 

LSTHDR 

RTYPE 

SKCNTl 

PRFLGS 

RXFR3 

WXFR3 

LSTDA 

DIFWD 

DPHOUR 

TRERR 

DATCER 

DOWCK 

SERNMl 

SFRNM2 

DCS 

DRSEL 

BBA 

BSECPT 

RSEEK 

SOFTCS 

WRIPG 

PRPOS 



SKCNT 

RXFPl 

RXFR2 

WXFRl 

WXFR2 

ERRCNT 

SFTCNT 

SKECNT 

DERCNT 

DCRCER 

HCRCER 

DLTCNT 

OPICNT 

HNFERR 

NXMCNT 

RETRY 

BDA 

BMP 

FUNC 

BCSADR 

LSTHDR 

RTYPE 



JHSADER CRC ERROR COUNT 
yOATA LATE ERROR COUNT 
'SSEPATION INCOMPLETE ERROR COUNT 
yHEIDER NOT FOUND ERROR COUNT 
JNON EXISTANT MEMORY ERROR COUNT 

jpresrnt retry number 

'„r,^!! pisk address contents 

?present multipurpose contents 

;last function loaded 

jcsr image of last command 

;last position on disk 

?program internal flags 

;peao count third 

?write count third 

;disk address of soft error 

;last difference word of seek 

?ti"e drive was dropped 

;TRACKING error COUNT 

?WRTTE CHECK NECESARY 
'^SSHS- NUMBER OF CARTRIDGE 
?SERIAL NUMBER OF CARTRIDGE 
?CSR ADDRESS 

?nRIVE SELECT BITS(8/9,1C) 
'SSIPIJ?''' iUS ADDRESS CONTENTS 
;POINTER TO BAD SECTOR FILE 

'P,S5-,B'',TIME OF SOFT ERROR 

;WRITE IN PROGRESS DURING PWR FAIL 

JPRESENT POSITION ON DISK 

SEEK OPERATION COUNT 

READ OPERATION COUNT (BITS) LOW ORDER 
•• M n HICHORnFR 

;write operation count (bits) low order 

Terror count - hard " ""^ """^ 

?srrop count - soft 

;sefk error count 

?drive error count 

;data crc error count 

jheader cpc error count 

'SHLii^TE ERROR COUNT 
'9i?SSI^CN INCOMPLETE ERROR COUNT 
jHEftDER NOT FOUND ERROR COUNT 
JNON EXISTANT MEMORY ERROR COUNT 
?PRESENT RETRY NUMBER 
'r,r>^^r,. ^ I ^K ADDRESS CONTENTS 
JPRESENT MULTIPURPOSE CONTENTS 
?LAST FUNCTION LOADED 
?CSR IMAGE OF LAST COMMAND 



;LAST POSITION ON DISK 

"'■ -HICH RECOVERY IS IN PROGRESS 



;ERROP ON 
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25526 
25530 

51115 



5536 
025540 
025542 
C25544 
025546 
025550 



mil 



im 



umi 



uim 



mm 



mm 
mlh 
mm 
mm 
im 



mm 
mh 
mm 

000054 
000056 



000064 
000066 



m 
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SKCNTl 

PRFLGS 

RXFR3 

WXFR3 

LSTDA 

DIFWD 

DPHOUR 

TRERR 

DATCER 

DOWCK 

SERNMl 

SERNM2 

DCS 

DRSEL 

BPA 

BSECPT 

RSEEK 

SOFTCS 

WRIPG 

PRPOS 



RXFRl 

RXFR2 

WXFRl 

WXFR2 

ERRCNT 

SFTCNT 

SKECNT 

DERCNT 

DCRCER 

HCRCER 

DLTCNT 

OPICNT 

HNFERR 

NXMCNT 

RETRY 

BDA 

BMP 

FUNC 

BCSADR 

LSTHDR 

RTYPE 

SKCNTl 

PRFLGS 

RXFR3 

WXFR3 

LSTDA 

DIFWD 

DPHOUR 

TRERR 

DATCER 

DOWCK 



;seek count low order 

^program internal flags 

jread count third 

;write count third 

?disk address op soft error 

;last difference word of seek 

?TIME drive WAS DROPPED 
;TRACKING ERROR COUNT 

?WRITE CHECK NECESARY 
;SERIAL NUMBER OF CARTRIDGE 
;SERIIL NUMBER OF CARTRIDGE 
5CSR ADDRESS 

JDRIVE SELECT BITS(8/9,10) 
;PRESENT BUS ADDRESS CONTENTS 
;POINTER TO BAD SECTOR FILE 

;CSR AT TIME OF SOFT ERROR 
;WRITE IN PROGRESS DURING PWR 
?PRESENT POSITION ON DISK 



OPERATION COUNT 

OPERATION COUNT (BITS) LOW ORDER 



SERNM2 



READ _ ______ 

HIGH ORDER 
yWRITE OPERATION COUNT (BITS) LOW ORDER 
} •• " " " HIGH ORDER 
JERROR COUNT - HARD 
JERROR COUNT - SOFT 
?SEEK ERROR COUNT 
JORIVE ERROR COUNT 
;DATA CRC ERROR COUNT 
JHEADER CRC ERROR COUNT 
;DATA LATE ERROR COUNT 
?OPERATION INCOMPLETE ERROR COUNT 
?HEADER NOT FOUND ERROR COUNT 
?NON EXISTANT MEMORY ERROR COUNT 
JPRESFNT RETRY NUMBER 
J " DISK ADDRESS CONTENTS 
^PRESENT MULTIPURPOSE CONTENTS 
?LAST FUNCTION LOADED 
?CSR IMAGE OF LAST COMMAND 
;LAST POSITION ON DISK 

;ERROR ON WHICH RECOVERY IS IN PROGRESS 
;SEEK COUNT LOW ORDER 
^PROGRAM INTERNAL FLAGS 
;READ COUNT THIRD 
JWRITE COUNT THIRD 
;DISK ADDRESS OF SOFT ERROR 
JLAST DIFFERENCE WORD OF SEEK 
;TIME DRIVE WAS DROPPED 
;TRACKING ERROR COUNT 

?WRITE CHECK NECESARY 
;SERIAL NUMBER OF CARTRIDGE 
ySERIAL NUMBER OF CARTRIDGE 
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mm 
mm 
mm 
mm 
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025776 
026000 
5260Q2 
026004 
026006 
026010 
260'- 
"265 



m 

016 



26( 
026026 



mm 



m 



siir5§ mm 



DRIVE INFORMATION BUFFERS 

DCS 

DRSEL 

BBA 

BSECPT 

RSEEK 

SOFTCS 

WRIPG 

PRPOS 



SKCNT 
RXFRl 



;CSR ADDRESS 

;DRIVE SELECT BITS(8/<?#10) 

jpresent bus address contents 
;pointer to bid sector file 

?csp at time of soft error 

;MRITE in PROGRESS DURING PWR FAIL 
;PRESENT POSITION ON DISK 



SEEK OPERATION COUNT 

READ OPERATION COUNT (BITS) LOW ORDER 
. " " " " HIGH ORDER 
JWRITE OPERATION COUNT (BITS) LOW ORDER 

IerROP COONT - HARD " "'='' °"''^ 

?ERROR COUNT - SOFT 

?SEEK ERROR COUNT 

;DRIVE ERROR COUNT 

;DATA CRC ERROR COUNT 

yHEADER CRC ERROR COUNT 

JDATA LATE ERROR COUNT 

?OPERATION INCOMPLETE ERROR COUNT 

;HEADFR NOT FOUND ERROR COUNT 

?NON EXISTANT MEMORY ERROR COUNT 

?PRFSENT RETRY NUMBER 

; •• DISK ADDRESS CONTENTS 

?PRESENT MULTIPURPOSE CONTENTS 

JLAST FUNCTION LOADED 

JCSR IMAGE OF LAST COMMAND 

JLAST POSITION ON DISK 

JERROR ON WHICH RECOVERY IS IN PROGRESS 

JSEEK COUNT LOW ORDER 

JPROGRAM INTERNAL FLAGS 

JREAD COUNT THIRD 

JWRITE COUNT THIRD 

JDISK ADDRESS OF SOFT ERROR 

JLAST DIFFERENCE WORD OF SEEK 

JTIME DRIVE WAS DROPPED 

JTRACKING ERROR COUNT 

JWRITE CHECK NECESARY 
JSEPIAL NUMBER OF CARTRIDGE 
JSEPIAL NUMBER OF CARTRIDGE 
JCSR ADDRESS 

JDRIVE SELECT BITS(8/9irlO) 
JPRESENT BUS ADDRESS CONTENTS 
JPOINTER TO BAD SECTOR FILE 

JCSR^AT TIME OF SOFT ERROR 
?^5nE..P PPOGRESS DURING PWR FAIL 
JPRESENT POSITION ON DISK 

JSREK OPERATION COUNT 

JREAD OPERATION COUNT (BITS) LOW ORDER 



* I 
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RXFR2 

WXFRl 

WXFR2 

BRRCNT 

SFTCNT 

SKECNT 

PFRCNT 

DCPCER 

HCRCER 

DLTCNT 

OPICNT 

HWFERR 

NXMCNT 

RETRY 

BHA 

BMP 

FUNC 

BCSADR 

LSTHDR 

RTYPE 

SKCNTl 

PRFLGS 

PXFR3 

WXFR3 

LSTDA 

DIFWD 

DPHOUR 

TRERP 

DATCFR 

DOWCK 

SEPNMl 

SFRNH2 

DCS 

DPSBL 

BBA 

BSECPT 

RSEEK 

SOFTCS 

WPIPG 

PRPOS 



RXFRi 

RXFR2 

WXFRl 

WXFR2 

ERPCNT 

SFTCNT 

SKECNT 

DERCNT 

DCRCFP 

HCRCER 

DLTCNT 

OPICNT 

HNFERR 



? " " " " HIGH ORDER 
JWRITE OPERATION COUNT (BITS) LOW ORDER 

fERRO» COONT - HARD " """ """^ 

?ERROR COUNT - SOFT 

?SEEK ERROR COUNT 

;DRIVB ERROR COUNT 

?DATA CRC ERROR COUNT 

?HEADER CRC ERROR COUNT 



3 



JDATA LATE ERROR COUNT 
?9EIBATI0N INCOMPLETE ERROR CO 
yHEADER NOT FOUND ERROR COUNT 



?NON EXISTANT MEMORY ERROR COUNT 

?PRESENT RETRY NUMBER 

'^r.r.Jl DISK ADDRESS CONTENTS 

IPRESENT MULTIPURPOSE CONTENTS 

?LAST FUNCTION LOADED 

?CSR_^IMAGE OF LAST COMMAND 

?^ASI„PQSITION ON DISK 

;ERRgR^gN WHICH RECOVERY IS IN PROGRESS 

JSEEK COUNT LOW ORDER 

;PROGRAM INTERNAL FLAGS 

?READ COUNT THIRD 

;WRITE COUNT THIRD 

?OISK ADDRESS OF SOFT ERROR 

;LAST DIFFERENCE WORD OF SEEK 

^IIVi^SRIVE^WAS DROPPED 

;TRACKING ERROR COUNT 

JWRITE CHECK NECESARY 
diSHP W^lll W CARTRIDGE 
JSERISL NUMBER OF CARTRIDGE 
;CSR ADDRESS 

JDRIVE SELECT BITSCSrP^lO) 
^SSfSENT BUS ADDRESS CONTENTS 
;POINTER TO BAD SECTOR FILE 

^SS5-.S'r,TIME OF SOFT ERROR 
?SSJSi».P«SB02R|SS DURING PWR FAIL 
;PRESENT POSITION ON DISK 



;SEEK ( 
;READ I 
• II 

; WRITE 
;ERROR 

;error 

?SEEK E 

;drive 

;DATA C 
?HEADER 
JDATA L 
;0PERAT 
;HEAOER 



IPERATION COUNT 

IPERATION COUNT (BITS) LOW ORDER 

" " '* HTCHflRnPR 

OPERATION COUNT (BITS) LOW ORDER 

COUNT - H»RD " ""=" '""'^'' 
COUNT - SOFT 
RROR COUNT 
ERROR COUNT 
RC ERROR COUNT 

CRC ERROR COUNT 
ATE ERROR COUNT 
I9^-.I^£Q*'El'ETE ERROR COUNT 

NOT FOUND ERROR COUNT 



') 
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NXMCNT 

RETRY 

BDA 

BMP 

FUNC 

BCSADR 

LSTHDR 

RTYPE 

SKCNTl 

PRFLGS 

RXFR3 

WXFR3 

LSTDA 

DIFWD 

DPHOUR 

TRERR 

DATCER 

DOWCK 

SEPNMl 

SEPNM2 

DCS 

DRSEL 

BBA 

BSECPT 

RSEEK 

SOFTCS 

WRIPG 

PRPOS 



ENDBUF: .WORD 



BGNMOD HROPPM 



BGNHRD 

.WORD L10024-LSHARD/2 



;NgN EXISTANT MEMORY ERROR COUNT 
yPRESENT RETRY NUMBER 
'„„^!!^ PISK ADDRESS CONTENTS 
JPRESENT MULTIPURPOSE CONTENTS 
;LAST FUNCTION LOADED 

IEI|TS"gifT?SN'-§rn5§r'~'' 

liETc8u%rjg!l SS"" " " ^''°'=''"= 

;PROGPAM INTERNAL FLAGS 

JREAD COUNT THIRD 

?WRITE COUNT THIRD 

;OISK ADDRESS OF SOFT ERROR 

;LAST DIFFERENCE WORD OF SEEK 

?TIME DRIVE WAS DROPPED 

?TRACKING ERROR COUNT 

;WRITE CHECK NECESARY 
?SRRIAL NUMBER OF CARTRIDGE 



DRIVE SELECT BITS(8,9.10) 
nnr-oe„, """^ ADDRESS CONTENT 
BAD SECTOR FILE 



Vv^iWkl ?Hs.iPBiss: 



;CSR AT TIME OF SOFT ERROR 



■'■) 



GPRML 

.WORD 
.WORD 
.WORD 
GPRMA 
.WORD 
.WORD 
.WORD 
.WORD 
GPRMA 
.WORD 
.WORD 
.WORD 
.WORD 
GPRMD 
.WORD 
.WORD 



CNTYPE/CNT/1,VES 

T^CODE 

CNTYPB 

CSRMSG,CSR, 0,1 60000^77776,, YES 

CSRMSG 

TSLOLIM 

TSHILIM 

)ll^KSi'^E^T,0,0,776,¥ES 

T<;CODF 

VECMSG 

TSLOLIM 

T^HILIM 

P|^gg^PRIOR/0.340,C,7,YES 

RRMSG^ 



) 
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046122 030461 



.WORD 
• WORD 
.WORD 
GPRMD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

ENDHRD 
.EVEN 



.ASCI 7. 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



3 40 

t|hilim 



DftMSG,DRBT,O,0 3400,0,7, YES 

T^CPDE 

ORMSG 

TSLOLIM 

t<;hilim 



/RLll/ 

/RUS ADDRESS/ 

/RR LEVEL/ 

/VECTOR/ 

/DRIVE/ 



BGNMOD SFTPRM 



BGNSFT 

.WORD L1O025-LSSOFT/2 



000000 
00f^200 



GPRMD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
GPRMD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
GPRML 
.WORD 
.WORD 
.WORD 
XFERF 
.WORD 
GPRMD 
.WORD 
.WORD 
.WORD 
.WORD 
• WORD 
GPRMD 



RTMSG£RLT,D, 177777,0, 177777, YES 

t<:code; 
rtmsg 

177777 

TSLOLIM 

T^HTLIM 

SRTMSG,SRLT,D, 177777, 0,1 77777, YES 

SRTMSG 

177777 

TSLOLIM 

TSHILTM 

FDCHK,DCKFG,1,YES 

TSCODE 

FDCHK 



TSCODE 

CHKLMT,CLMT, 0,1 77777, 0,1 28., YES 

TSCODE 

CHKLHT 

177777 

TSLOLIM 

TSHIUM 

INMSCTVT, 0,177777, 1,1 77777, YES 
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3$: 



.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

GPRML 

.WORD 

.WORD 

.WORD 

XFERF 

.WORD 

GPRMD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

GPRMD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

GPRMD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

GPRMD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

GPRMD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

GPRML 

.WORD 

.WORD 

.WORD 

XFERF 

.WORD 

GPRMD 

.WORD 

.WORD 

.WORD 

-WORD 

.WORD 

GPPMD 

.WORD 

.WORD 



TSCODE 

INMSG 

177777 

TSLOLIM 

TSHILTM 

DRPMS 

1 

3S 

TSCODE 

fRMSGgELT,D,177777^0, 177777, YES 

ermsg" 

177777 

TSLOLIM 

TSHILIM 

||JMSG,SEL,0,177777,0,177777,YBS 

SFTMSG 

177777 

TSLOLIM 

TS H I L r M 

||RPM|/DCD,D,177777,0,177777,YES 

DFRPMS 

177777 

TSLOLIM 

TSHILIM 

||gSGgSET,D, 177777,0, 177777, YFS 

SEMSG ' 

177777 

TSLOLIM 

TSHILIM 

D||MSG,DET,D,177777, 0,177777, YES 

DPEMSG 

177777 

TSLOLIM 

TSHILIM 

STLMTgOPFLG,l,YES 

STLMT 

1 

2S 

TSCODE 

fl^SG^RAT, 0,177777,1, 177776, YES 

DAHSG 

177777 

TSLOLIM 

TSHILIM 

f|gSG^SKT,D,177777,l,177776,YES 

SKMSG" 



• I 
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4S: 
7S: 



007052 
027255 



.WORD 
.WORD 
.WORD 
GPPML 
• WORD 
.WORD 
.WORD 
XFFRF 
.WORD 
GPRML 
.WORD 
.WORD 
.WORD 
XFBRF 
.WORD 
GPRMD 
.WORD 
.WORD 
-WORD 
.WORD 
.WORD 
GPRMD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
GPRML 
.WORD 
.WORD 
.WORD 
GPRML 
.WORD 
.WORD 
.WORD 
XPERT 
.WORD 
GPRMD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
GPRML 
.WORD 
.WORD 
.WORD 
GPRMD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
GPRMD 
.WORD 
.WORD 



T^LOLIM 

T^HILIM 

CHANGE/CHFLG,1,YES 

TSCODB 

CHANGE 

Is 

T-^CODE 

STIPMS,STIP,1,YES 

T^CODE 

STIPMS 

1 

6S 

TSCODE 

M?fBUF,MXB, 0,177777,3, 51 20., YES 

T<;CODE 



T^LOLIM 
T5HILTM 
HI NRUF,MNB, 0,177777, 3., 5120., YFS 



TSCODE 
MINBUF 
177777 



-77777 

TSLOLIM 

T^HILIM 

RDONLY,ROF,1,YES 

T?CODE 

RDONLV 

RANPAT,RAN,1,YES 

TSCODE 

RANPAT 

4<! 

TSCODE 

ONLONE,PAT,O,17,0,7,YES 

T<!CODE 

ONLONE 

17 

TSLOLIM 

TSHILIM 

WCKMSG,WCK,1,YES 

TSCODE 

WCKMSG 

1 

CMMSG,RDT, 0,177777,0, 128., YES 

CMMSG ' 

177777 

T$LOLIM 

T'lH II T M 

D^MSG, DDT, 0,177777, 0,175, YES 

T<>CODE 

DEMSG 
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.WORD 
.WORD 
.WORD 
GPRMD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
GPRMD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
GPPMD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
GPRMD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
GPRMD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
GPRMD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

GPRML 
.WORD 
.WORD 
.WORD 



ENDSFT 
.EVEN 



052123 050111 

042523 045505 

,.-.. m mm 

27203 122 047101 



046125 
051040 

mm 

050040 



STIPMS: 

srtmsg: 

CHKLMT: 
RDQNLV: 
RANPAT: 



,ASCIZ 
.ASCIZ 
A SCI 7 
.ASCIZ 



177777 
TSLOLIM 

MXHD,MXH,D,100,0,l,yES 

TSCODE 

100 

TSLOLIM 

TS H I [ TM 

^INHDgMNH,D,100,0,l,YES 

MINHD 

100 

TSLOLIM 

TSHILIM 

MXCVL,MXC,D, 77 600, 0,255., YES 

MXCYL 

77600 

TSLOLIM 

TSHILIM 

^INrYL,MNC, 0,77600, 0,255., YES 

MTNCYL 

77600 

TSLOLIM 

TSHILIM 

^^Mf^"^S'D,77, 0,39., YES 

TSCODE 

MXSEC 

77 

TSLOLIM 

TSHILIM 

MINSEC,MNS,D,77, 0,39., YES 

TSCODE 

MINSEC 

77 

TSLOLIM 

TSHILIM 

AUTOMS, AUTO, 1, YES 

TSCODE 

AUTOMS 

I 



^STIPULATE R/W XFER SIZE*. 
/SEEK RETRY l»T/ 

/RAN PAT/ 



) 
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/WHICH ONE/ 
LMT. 

. _ LMT/ 

/If OF DATA ERR PPT'D PER BUF/ 



/HRD ERR LMT/ 
/SFT !iRR_LMT/ 



/RETRY LMT/ 

/SK ERR LMT/ 

/PR ERR LMT/ 

/DATA XFER LMT (*10(10))/ 



/SK LMT (*10(3)1/ 

/TIME BETW RBPORTS (MIN)/ 

*CHANGE SEEK, R/W p]lRAMETERS% 



/MAX XFER/ 

/MIN HD/ 

/MAX CYL/ 

/MIN CYL/ 

/MAX SBC/ 

/MIN SEC/ 

/CHK DRDY/ 

/DATA DMP ON DCK ERR/ 

/DROP DR ON OPER LMTS REACHED/ 

/DROP DR ON ERR LMTS REACHED/ 

/WR CHK/ 

/DATA MISCOMPARE LIMIT/ 

/WORDS PER SECTOR COMPARED ON READ/ 



PJ[T..7_0F "LAST AD" MUST 



DIAC 
TO 



PROVIDE APT TO LSI-11 COMPATIBILITY. 



WHEN RU-NNING-orTHE-LSI-^fl'lllSfl^A??. '""""' "*''*"° "*^"°^ *°^^^^^' 



L$LAST!: 
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.SPTTL 
.WORD 
.WORD i 
.WORD I 
.WORD I 
END.SUPV 
.END 200 



DIAGNOSTIC SUPERVISOR — LOW CORE SET UP 

*' ;SPACE FOR USER POOL POINTER 



JSI7E 

?CHECKSnM (NOT CURRENTLY USED) 

?SIZE OF H.W. PTAB. ALLOCATION 
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ABQFLA 

ABOPAS 

ABO.FM 

ADOCOD 

AFREAO 

AFSI 

AFHRCK 

AGSTAT 

ALLOC 



015754 
015624 

mm 

027605 

mm 



m 



fiu 



BITS = 
BtT6 = 
BIT7 = 

BIT? = 

BLD.HH 

BLOCK 

BMP = 

BPRIOR 

BRMSG 

BSECPT= 

BSECO 

um 

BSEC3 

RSEC4 

BSeC5 

BSEC6 

BSEC7 

BIJFl 

BUF2 

PUSAD 

BVEC 

BfAAF 

CALLPC= 

CALLPS= 

CALLSP= 

CALLTC= 

CAL.CL 

CAL.TT 

CART 

CEHO 

CHANGE 

CHFLG = 

CH«CFNC 

CHKLMT 

CHKLUP 

CHKSEC 

CHKSTR 

CHKTTY 

CHK.MA 

CHK.PC 

CHK.SW 

mil 

CH.PAS 

CKBDSC 

CKDATA 

CKDERR 

CLEAR 

CLEAR. 

CLKACC 



mm 

001000 
035620 

Ml 

000112 
024330 

mm 

002270 
003737 

mm 
mm 

000026 

nm 

055656 

mm 

027451 
000020 

mil 

037236 

mill 

047526 

mm 

031566 

mm 

035122 

mk 

016514 
023722 



57230 



002407 

am 

000000 
OCOOQO 
26 401 
021150 

mm 

002140 
042500 

mm 

043654 

Imi 

000054 

8888^1 

mm 

000012 

mm 

000044 



000053 

mil 

000002 
600002 

888! 

000004 



000003 
OOOOOl 



000048 
000052 

000035 
000034 

imi 

000023 
000014 

80OOI6 
000015 



0377 
9007 
^05n 
45 



88! 

001 



000013 
000031 

88831? 

000004 
007512 
027351 
0Q0QC6 
000074 
000074 
003212 
000040 
004000 
000022 



000104 
000016 
047422 
002174 
9Q7522 



000052 
030144 
QQOOOO 
030464 
002433 
000066 
010000 
000026 
023104 
003070 

iim 

000070 

8m?j 

000006 
025056 

um 

027336 
000042 



03634 
04103 



ASSEMBLY ROUTINES 
CZRLEB.SUP 23-0CT-7B 



,-^iiV 



MACYJI 30A(1^52) 30-NOV-78 18 
SYMBOL TABLE 



42 PSGE 9-1 



DSAAK 


8«JP 




d|aal 




DSAAM 


472 




E .CON= 


000036 


G 


E .NEW= 
EF-PWRs 


mm 


G 
G 


EF.RESr 


000037 


G 


EF.STAs 


000040 


G 


EFol = 
EF03 = 


mm 


G 
G 




G 


EF04 = 
EF05 = 


G 


G 
G 


iF07 = 

If 8 = 


uu 


G 
G 


EF09 = 
iF12 = 


oiii 


G 


0000 1 4 


G 


u\i I 


088811 


G 
G 




000017 


G 


EF 6 = 


000020 

mm 


G 


ifl.TR" 


G 


1 hf. 








E DWR 




i 8:§S= 




E VIRO 


030204 


G 


EOP.CH 
EOP.FM 
EOP.IN 




G 


035116 




IPS 
ERLMT 


8 mi 

3125 




ERLMTM 




ERMSG 


7225 




iRRCNT= 


188355 




ERREX 
ERRFOR 


016350 




ERRHAN 




E RVEC 


IWill 




ERR.HR 
EPR.NIJ 




G 


E R.SF 


043474 




ERRl 
E RIFO 


mm 

005114 


G 


E RIO 


G 


E R12 


005164 


G 



ERR13 

ERR2 

ERR3 

ERR4 

ERR6 

ERR7 

ERR8 

ERR9 

ERT 

ESC. PC 

EV.COU 

EXHAUS 

EXIT 

EXITl 

EXP 

E.BA 

E.CS 

E.DA 

E.MP 

E.MPl 

E.MP2 

FASCII 

FASPNT 

FDCHK 

FTLINF 

FILL 

FILL.C 

FINDBF 

FtNERR 

FLAGS 

FLAGSl 

FLAGTA 

FLAG. I 

FLA.SE 

FLG.MA 

FHTSl 

FMTSIA 

FMTSIP 

FMTS2 

FMTS2A 

FMTS2B 

FMTS3 

FMTS3A 

FMTS4 

FMTS5 

FMTl 

FMTIA 

FMTIO 

FMTIOA 

FMTIOB 

FMTll 

FMT12 

FMT13 



mm 

004376 
004514 

mm 

004664 

mm 

042524 
030136 



im 






004Q61 
592252 



91^742 
016452 
030176 

km 



FMTi4A 
FMT14R 



mm 

006044 
006060 
C06106 
006141 



000004 
000013 

8888e§ 

mil 




651616 
017156 



„§XFER= 

GSYES = 

HCE = 

HCOPEn 

HCOREQ 

HCORET 

HCRC = 

HCRCERr 

HC.RDR 

HC.DEF 

HC.DIA 

HDHOME 

HDPFNT 

HEAD = 

HERTZ. 

HINHM 

HNF = 

HNFERR= 

HOLDSP= 

HOUR 

HPTCOD 

HPDPRM 

HWSEC 

HW.ADR 

H$AftB 

ILLEG 



000 

Jo^8 

.040 

_:8f28 

000020 

888585 

000010 
040000 

unit 

030420 

§8,^825 

030170 

mm 

022500 
002170 
000100 
034544 

010000 
000032 

mm 

007466 I 
026320 I 

030166 ( 

054224 

OQ3574 



INTERV 
INTFOP 



mm 

030410 
007664 
G47436 
035522 
030224 
027421 
050364 
000100 



mill 
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LSCO 

LSDEPO 

ISDESC 

LfDEVP 

CSDISP 

L$DR 

" SDRCT 

DRS 
_^DRST 
LfDTP 

mir 

LSDVTY 
"$EF 
SEFLG 



11072 
Q2032 



fclisTi 



026446 
092062 



02014 G 
02054 G 
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MODR 

NPT 
MRDER 
MRLCS 
MRT 




-52 
-450 

ml 

12614 

II 

30216 

mm 

"37234 
37232 

urn 




04160 
12354 



004274 

mm 

C04264 

mm 

003610 



000034 

iim 

053614 
222464 
003622 
003376 

mm 

003434 

mm 

050726 
034724 
000000 
044052 



00030 



PATLST 

PATO 

PATl 

PAT2 

PAT3 

PAT4 

PATS 

PAT6 

PAT7 

PEROTH 

POWER 

prfCgs= 

PRGER 
PRINTC 
PRINTF 
PRIOR = 

PRIOO = 
PRI02 = 



PRI07 = 
PRNTST 
PRO. CM 
PRPOS = 



000340 
050626 
035076 
000122 
030416 
047442 
002276 
060566 
030222 



mt 



RTl 
RWCNT 

RXFR2 = 
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mM 

















III 




STTPMS 

STLMT 

STRCHP 

STRT.T 

STWRT 

ST. SET 

STl 

ST2 



SUPFLA 

SUPV.T 

SUP. PR 

SVCGBL= 

SVCHAN 

SVCINS= 

SVCSUB= 

SVCTAGs 

SVCTST= 

SWCHAN 

SWITCH 

SHSEC 

SH.ADR 

SW.PTA 

SVSCLK 

SYSMSir 

SYS. FT 



050316 
035102 

mm 

002320 
002322 

mm 

030376 
000000 




ABS. 060736 





SEO 0119 




ERRORS DETECTED: 
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CORE USED: 



'm m 



PAGES) 



3 
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